gcc/testsuite/gfortran.dg/alloc_comp_constraint_3.f90

   1 ! { dg-do compile }
   2 ! Check that default initializer for allocatable components isn't accepted (PR
   3 ! 20541)
   4 program main
   5
   6     type :: foo
   7         integer, allocatable :: a(:) = [ 1 ] ! { dg-error "Initialization of allocatable" }
   8
   9         integer :: x ! Just to avoid "extra" error messages about empty type.
  10     end type foo
  11
  12 end program main