42 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12 3! Check modfile that contains import of use-assocation of another use-association.4 5module m16 interface7 subroutine s(x)8 use, intrinsic :: iso_c_binding, only: c_ptr9 type(c_ptr) :: x10 end subroutine11 end interface12end module13!Expect: m1.mod14!module m115! interface16! subroutine s(x)17! use,intrinsic::iso_c_binding, only: c_ptr18! type(c_ptr) :: x19! end20! end interface21!end22 23module m224 use, intrinsic :: iso_c_binding, only: c_ptr25 interface26 subroutine s(x)27 import :: c_ptr28 type(c_ptr) :: x29 end subroutine30 end interface31end module32!Expect: m2.mod33!module m234! use,intrinsic::iso_c_binding,only:c_ptr35! interface36! subroutine s(x)37! import::c_ptr38! type(c_ptr)::x39! end40! end interface41!end42