| ! RUN: %python %S/test_modfile.py %s %flang_fc1 | |
| ! Ensure that a dummy procedure's interface's imports | |
| ! appear in the module file. | |
| module m | |
| type :: t | |
| end type | |
| contains | |
| subroutine s1(s2) | |
| interface | |
| subroutine s2(x) | |
| import | |
| class(t) :: x | |
| end subroutine | |
| end interface | |
| end subroutine | |
| end module | |
| !Expect: m.mod | |
| !module m | |
| !type::t | |
| !end type | |
| !contains | |
| !subroutine s1(s2) | |
| !interface | |
| !subroutine s2(x) | |
| !import::t | |
| !class(t)::x | |
| !end | |
| !end interface | |
| !end | |
| !end |