+
−! { dg-do compile }
+
−! { dg-options "-w" }
+
−!
+
−! PR fortran/78240
+
−!
+
−! Test a regression where an ICE occurred by passing an invalid reference
+
−! to the error handling routine for non-constant array-specs in DATA list
+
−! initializers.
+
−!
+
−! Error message update with patch for PR fortran/83633
+
−!
+
−program p
+
−  integer x(n)    /1/   ! { dg-error "array with nonconstant bounds" }
+
−end
+
−! { dg-prune-output "module or main program" }
+
−! { dg-prune-output "Nonconstant array" }