1! RUN: %S/test_modfile.sh %s %t %flang_fc1 2! REQUIRES: shell 3 4! Check modfile that contains import of use-assocation of another use-association. 5 6module m1 7 interface 8 subroutine s(x) 9 use, intrinsic :: iso_c_binding, only: c_ptr 10 type(c_ptr) :: x 11 end subroutine 12 end interface 13end module 14!Expect: m1.mod 15!module m1 16! interface 17! subroutine s(x) 18! use iso_c_binding, only: c_ptr 19! type(c_ptr) :: x 20! end 21! end interface 22!end 23 24module m2 25 use, intrinsic :: iso_c_binding, only: c_ptr 26 interface 27 subroutine s(x) 28 import :: c_ptr 29 type(c_ptr) :: x 30 end subroutine 31 end interface 32end module 33!Expect: m2.mod 34!module m2 35! use iso_c_binding,only:c_ptr 36! interface 37! subroutine s(x) 38! import::c_ptr 39! type(c_ptr)::x 40! end 41! end interface 42!end 43