29 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12module m3 type t1(a, b, c)4 integer, kind :: a5 integer(8), len :: b, c6 integer :: d7 end type8 type, extends(t1) :: t2(e)9 integer, len :: e10 end type11 type, extends(t2) :: t312 end type13end14 15!Expect: m.mod16!module m17! type::t1(a,b,c)18! integer(4),kind::a19! integer(8),len::b20! integer(8),len::c21! integer(4)::d22! end type23! type,extends(t1)::t2(e)24! integer(4),len::e25! end type26! type,extends(t2)::t327! end type28!end29