blob: 366ac02220231a569e2a1ca013686e6ada0201b3 [file] [log] [blame]
! RUN: %python %S/test_modfile.py %s %flang_fc1
module m1
interface foo
module procedure foo
end interface
contains
subroutine foo
end subroutine
end module
module m2
use m1, bar => foo
interface baz
module procedure bar ! must not be replaced in module file with "foo"
end interface
end module
!Expect: m1.mod
!module m1
!interface foo
!procedure::foo
!end interface
!contains
!subroutine foo()
!end
!end
!Expect: m2.mod
!module m2
!use m1,only:bar=>foo
!interface baz
!procedure::bar
!end interface
!end