34 lines
531 B
Fortran
34 lines
531 B
Fortran
|
! 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
|