! { 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" }