26 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Check modfile generation for private type in public API.3 4module m5 type, private :: t16 integer :: i7 end type8 type, private :: t29 integer :: i10 end type11 type(t1) :: x112 type(t2), private :: x213end14 15!Expect: m.mod16!module m17!type,private::t118!integer(4)::i19!end type20!type,private::t221!integer(4)::i22!end type23!type(t1)::x124!type(t2),private::x225!end26