gcc/testsuite/gfortran.dg/pr78240.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-w" }
   3 !
   4 ! PR fortran/78240
   5 !
   6 ! Test a regression where an ICE occurred by passing an invalid reference
   7 ! to the error handling routine for non-constant array-specs in DATA list
   8 ! initializers.
   9 !
  10
  11 program p
  12   integer x(n)    /1/   ! { dg-error "cannot appear in the expression" }
  13 end
  14 ! { dg-prune-output "module or main program" }
  15 ! { dg-prune-output "Nonconstant array" }