flang/test/Semantics/modfile11.f90

   1 ! RUN: %python %S/test_modfile.py %s %flang_fc1
   2 module m
   3   type t1(a, b, c)
   4     integer, kind :: a
   5     integer(8), len :: b, c
   6     integer :: d
   7   end type
   8   type, extends(t1) :: t2(e)
   9     integer, len :: e
  10   end type
  11   type, extends(t2) :: t3
  12   end type
  13 end
  14
  15 !Expect: m.mod
  16 !module m
  17 !  type::t1(a,b,c)
  18 !    integer(4),kind::a
  19 !    integer(8),len::b
  20 !    integer(8),len::c
  21 !    integer(4)::d
  22 !  end type
  23 !  type,extends(t1)::t2(e)
  24 !    integer(4),len::e
  25 !  end type
  26 !  type,extends(t2)::t3
  27 !  end type
  28 !end