flang/test/Semantics/modfile45.f90

   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.
   4 module 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
  11 end 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