1*950a1618SPeter Klausler! RUN: %python %S/test_modfile.py %s %flang_fc1 2*950a1618SPeter Klauslermodule m1 3*950a1618SPeter Klausler interface foo 4*950a1618SPeter Klausler module procedure foo 5*950a1618SPeter Klausler end interface 6*950a1618SPeter Klausler contains 7*950a1618SPeter Klausler subroutine foo 8*950a1618SPeter Klausler end subroutine 9*950a1618SPeter Klauslerend module 10*950a1618SPeter Klauslermodule m2 11*950a1618SPeter Klausler use m1, bar => foo 12*950a1618SPeter Klausler interface baz 13*950a1618SPeter Klausler module procedure bar ! must not be replaced in module file with "foo" 14*950a1618SPeter Klausler end interface 15*950a1618SPeter Klauslerend module 16*950a1618SPeter Klausler 17*950a1618SPeter Klausler!Expect: m1.mod 18*950a1618SPeter Klausler!module m1 19*950a1618SPeter Klausler!interface foo 20*950a1618SPeter Klausler!procedure::foo 21*950a1618SPeter Klausler!end interface 22*950a1618SPeter Klausler!contains 23*950a1618SPeter Klausler!subroutine foo() 24*950a1618SPeter Klausler!end 25*950a1618SPeter Klausler!end 26*950a1618SPeter Klausler 27*950a1618SPeter Klausler!Expect: m2.mod 28*950a1618SPeter Klausler!module m2 29*950a1618SPeter Klausler!use m1,only:bar=>foo 30*950a1618SPeter Klausler!interface baz 31*950a1618SPeter Klausler!procedure::bar 32*950a1618SPeter Klausler!end interface 33*950a1618SPeter Klausler!end 34