flang/test/Semantics/modfile36.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2
   3 ! Check modfile that contains import of use-assocation of another use-association.
   4
   5 module 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
  12 end module
  13 !Expect: m1.mod
  14 !module m1
  15 ! interface
  16 !  subroutine s(x)
  17 !   use,intrinsic::iso_c_binding, only: c_ptr
  18 !   type(c_ptr) :: x
  19 !  end
  20 ! end interface
  21 !end
  22
  23 module 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
  31 end module
  32 !Expect: m2.mod
  33 !module m2
  34 ! use,intrinsic::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