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