25 lines · plain
1! RUN: %python %S/test_modfile.py %s %flang_fc12! Ensures that uninitialized allocatable components in a structure constructor3! appear with explicit NULL() in the expression representation.4module m5 type t6 real, allocatable :: x1, x2, x37 end type8 type t29 type(t) :: a = t(NULL(),x2=NULL())10 end type11end module12 13!Expect: m.mod14!module m15!type::t16!real(4),allocatable::x117!real(4),allocatable::x218!real(4),allocatable::x319!end type20!type::t221!type(t)::a=t(x1=NULL(),x2=NULL(),x3=NULL())22!end type23!intrinsic::null24!end25