36 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12 3! Ensure that an interface with the same name as a derived type4! does not cause that shadowed name to be emitted later than its5! uses in the module file.6 7module m8 type :: t9 end type10 type :: t211 type(t) :: c12 end type13 interface t14 module procedure f15 end interface16 contains17 type(t) function f18 end function19end module20 21!Expect: m.mod22!module m23!type::t24!end type25!type::t226!type(t)::c27!end type28!interface t29!procedure::f30!end interface31!contains32!function f()33!type(t)::f34!end35!end36