! RUN: %python %S/test_modfile.py %s %flang_fc1 | |
! Ensures that uninitialized allocatable components in a structure constructor | |
! appear with explicit NULL() in the expression representation. | |
module m | |
type t | |
real, allocatable :: x1, x2, x3 | |
end type | |
type t2 | |
type(t) :: a = t(NULL(),x2=NULL()) | |
end type | |
end module | |
!Expect: m.mod | |
!module m | |
!type::t | |
!real(4),allocatable::x1 | |
!real(4),allocatable::x2 | |
!real(4),allocatable::x3 | |
!end type | |
!type::t2 | |
!type(t)::a=t(x1=NULL(),x2=NULL(),x3=NULL()) | |
!end type | |
!intrinsic::null | |
!end |