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