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