| ! 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 |