1! RUN: %S/test_modfile.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check modfile generation for private type in public API.
4
5module m
6  type, private :: t1
7    integer :: i
8  end type
9  type, private :: t2
10    integer :: i
11  end type
12  type(t1) :: x1
13  type(t2), private :: x2
14end
15
16!Expect: m.mod
17!module m
18!type,private::t1
19!integer(4)::i
20!end type
21!type,private::t2
22!integer(4)::i
23!end type
24!type(t1)::x1
25!type(t2),private::x2
26!end
27