33 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12 3! Ensure that a dummy procedure's interface's imports4! appear in the module file.5 6module m7 type :: t8 end type9 contains10 subroutine s1(s2)11 interface12 subroutine s2(x)13 import14 class(t) :: x15 end subroutine16 end interface17 end subroutine18end module19!Expect: m.mod20!module m21!type::t22!end type23!contains24!subroutine s1(s2)25!interface26!subroutine s2(x)27!import::t28!class(t)::x29!end30!end interface31!end32!end33