brintos

brintos / llvm-project-archived public Read only

0
0
Text · 476 B · 1243373 Raw
27 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3  interface4    module subroutine separate5    end6  end interface7 contains8  subroutine modsub9    !ERROR: Module 'm' cannot USE itself10    use m11  end12end13 14submodule(m) submod115 contains16  module subroutine separate17    !ERROR: Module 'm' cannot USE itself from its own submodule 'submod1'18    use m19  end20end21 22submodule(m) submod223  !ERROR: Module 'm' cannot USE itself from its own submodule 'submod2'24  use m25end26 27