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 ! Error message update with patch for PR fortran/83633
  11 !
  12 program p
  13   integer x(n)    /1/   ! { dg-error "array with nonconstant bounds" }
  14 end
  15 ! { dg-prune-output "module or main program" }
  16 ! { dg-prune-output "Nonconstant array" }