57 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s3 type t4 end type5 interface6 subroutine s17 import, none8 !ERROR: IMPORT,NONE must be the only IMPORT statement in a scope9 import, all10 end subroutine11 subroutine s212 import :: t13 !ERROR: IMPORT,NONE must be the only IMPORT statement in a scope14 import, none15 end subroutine16 subroutine s317 import, all18 !ERROR: IMPORT,ALL must be the only IMPORT statement in a scope19 import :: t20 end subroutine21 subroutine s422 import :: t23 !ERROR: IMPORT,ALL must be the only IMPORT statement in a scope24 import, all25 end subroutine26 end interface27end28 29module m30 !ERROR: IMPORT is not allowed in a module scoping unit31 import, none32end33 34submodule(m) sub135 import, all !OK36end37 38submodule(m) sub239 !ERROR: IMPORT,NONE is not allowed in a submodule scoping unit40 import, none41end42 43function f44 !ERROR: IMPORT is not allowed in an external subprogram scoping unit45 import, all46end47 48subroutine sub2()49 block50 import, all !OK51 end block52end53 54!ERROR: IMPORT is not allowed in a main program scoping unit55import56end57