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