gcc/testsuite/gfortran.dg/dec_structure_23.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec-structure" }
   3 !
   4 ! PR fortran/78240
   5 !
   6 ! Test a regression where an ICE occurred attempting to create array variables
   7 ! with non-constant array-specs in legacy clist initializers.
   8 !
   9
  10 program p
  11   implicit none
  12   integer :: nn
  13   real :: rr
  14   structure /s/
  15     integer x(n)    /1/   ! { dg-error "xpected constant" }
  16     integer xx(nn)  /1/   ! { dg-error "xpected constant" }
  17     integer xxx(rr) /1.0/ ! { dg-error "xpected constant" }
  18   end structure
  19 end