flang/test/Semantics/modfile36.f90

   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
   6 module 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
  13 end 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
  24 module 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
  32 end 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