1! RUN: %S/test_modfile.sh %s %t %flang_fc1 2! REQUIRES: shell 3module 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 14end 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 30