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!
12program p
13  integer x(n)    /1/   ! { dg-error "array with nonconstant bounds" }
14end
15! { dg-prune-output "module or main program" }
16! { dg-prune-output "Nonconstant array" }
17