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