gcc/testsuite/gfortran.dg/array_constructor_type_8.f03

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/27997
   4 !
   5 ! Array constructor with typespec, check for regression
   6 !
   7 program test
   8   implicit none
   9   type :: real_info
  10     integer :: kind
  11   end type real_info
  12   type (real_info) :: real_infos(1) = (/ real_info (4) /)
  13 end program test