34 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m13 interface foo4 module procedure foo5 end interface6 contains7 subroutine foo8 end subroutine9end module10module m211 use m1, bar => foo12 interface baz13 module procedure bar ! must not be replaced in module file with "foo"14 end interface15end module16 17!Expect: m1.mod18!module m119!interface foo20!procedure::foo21!end interface22!contains23!subroutine foo()24!end25!end26 27!Expect: m2.mod28!module m229!use m1,only:bar=>foo30!interface baz31!procedure::bar32!end interface33!end34