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