forked from OSchip/llvm-project
25 lines
534 B
Fortran
25 lines
534 B
Fortran
! 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
|