1! RUN: %python %S/test_modfile.py %s %flang_fc1 2! Ensures that uninitialized allocatable components in a structure constructor 3! appear with explicit NULL() in the expression representation. 4module m 5 type t 6 real, allocatable :: x1, x2, x3 7 end type 8 type t2 9 type(t) :: a = t(NULL(),x2=NULL()) 10 end type 11end module 12 13!Expect: m.mod 14!module m 15!type::t 16!real(4),allocatable::x1 17!real(4),allocatable::x2 18!real(4),allocatable::x3 19!end type 20!type::t2 21!type(t)::a=t(x1=NULL(),x2=NULL(),x3=NULL()) 22!end type 23!intrinsic::null 24!end 25