gcc/testsuite/gfortran.dg/structure_constructor_12.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/64943
   4 !
   5 ! Contributed Dominique d'Humieres
   6 !
   7   type :: Test
   8     integer :: i
   9   end type
  10
  11   type :: TestReference
  12      class(Test), allocatable :: test(:)
  13   end type
  14 print *, TestReference([Test(99), Test(199)]) ! { dg-error "Data transfer element at .1. cannot have ALLOCATABLE components unless it is processed by a defined input/output procedure" }
  15 end