60 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Ensure that procedure name or derived type name that has been shadowed3! behind a generic interface gets its proper USE statement in a module file.4module m15 contains6 subroutine foo7 end subroutine8end module9module m210 use m111 interface foo12 procedure foo13 end interface14end module15module m316 type foo17 end type18end module19module m420 use m421 interface foo22 procedure bar23 end interface24 contains25 integer function bar26 end function27end module28 29!Expect: m1.mod30!module m131!contains32!subroutine foo()33!end34!end35 36!Expect: m2.mod37!module m238!use m1,only:foo39!interface foo40!procedure::foo41!end interface42!end43 44!Expect: m3.mod45!module m346!type::foo47!end type48!end49 50!Expect: m4.mod51!module m452!interface foo53!procedure::bar54!end interface55!contains56!function bar()57!integer(4)::bar58!end59!end60