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