flang/test/Semantics/modfile38.f90

   1 ! RUN: %S/test_modfile.sh %s %t %flang_fc1
   2 ! REQUIRES: shell
   3
   4 ! Ensure that an interface with the same name as a derived type
   5 ! does not cause that shadowed name to be emitted later than its
   6 ! uses in the module file.
   7
   8 module m
   9   type :: t
  10   end type
  11   type :: t2
  12     type(t) :: c
  13   end type
  14   interface t
  15     module procedure f
  16   end interface
  17  contains
  18   type(t) function f
  19   end function
  20 end module
  21
  22 !Expect: m.mod
  23 !module m
  24 !interface t
  25 !procedure::f
  26 !end interface
  27 !type::t
  28 !end type
  29 !type::t2
  30 !type(t)::c
  31 !end type
  32 !contains
  33 !function f()
  34 !type(t)::f
  35 !end
  36 !end