flang/test/Semantics/modfile37.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2
   3 ! Ensure that a dummy procedure's interface's imports
   4 ! appear in the module file.
   5
   6 module m
   7   type :: t
   8   end type
   9  contains
  10   subroutine s1(s2)
  11     interface
  12       subroutine s2(x)
  13         import
  14         class(t) :: x
  15       end subroutine
  16     end interface
  17   end subroutine
  18 end module
  19 !Expect: m.mod
  20 !module m
  21 !type::t
  22 !end type
  23 !contains
  24 !subroutine s1(s2)
  25 !interface
  26 !subroutine s2(x)
  27 !import::t
  28 !class(t)::x
  29 !end
  30 !end interface
  31 !end
  32 !end