| ! RUN: %python %S/test_modfile.py %s %flang_fc1 |
| |
| ! Check modfile that contains import of use-assocation of another use-association. |
| |
| module m1 |
| interface |
| subroutine s(x) |
| use, intrinsic :: iso_c_binding, only: c_ptr |
| type(c_ptr) :: x |
| end subroutine |
| end interface |
| end module |
| !Expect: m1.mod |
| !module m1 |
| ! interface |
| ! subroutine s(x) |
| ! use iso_c_binding, only: c_ptr |
| ! type(c_ptr) :: x |
| ! end |
| ! end interface |
| !end |
| |
| module m2 |
| use, intrinsic :: iso_c_binding, only: c_ptr |
| interface |
| subroutine s(x) |
| import :: c_ptr |
| type(c_ptr) :: x |
| end subroutine |
| end interface |
| end module |
| !Expect: m2.mod |
| !module m2 |
| ! use iso_c_binding,only:c_ptr |
| ! interface |
| ! subroutine s(x) |
| ! import::c_ptr |
| ! type(c_ptr)::x |
| ! end |
| ! end interface |
| !end |