flang/test/Semantics/modfile11.f90

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