1! RUN: %python %S/test_modfile.py %s %flang_fc1 2 3! Ensure that an interface with the same name as a derived type 4! does not cause that shadowed name to be emitted later than its 5! uses in the module file. 6 7module m 8 type :: t 9 end type 10 type :: t2 11 type(t) :: c 12 end type 13 interface t 14 module procedure f 15 end interface 16 contains 17 type(t) function f 18 end function 19end module 20 21!Expect: m.mod 22!module m 23!type::t 24!end type 25!type::t2 26!type(t)::c 27!end type 28!interface t 29!procedure::f 30!end interface 31!contains 32!function f() 33!type(t)::f 34!end 35!end 36