! { dg-do compile } | |
! Tests the fix for PR32236, in which the error below manifested itself | |
! as an ICE. | |
! Contributed by Bob Arduini <r.f.arduini@larc.nasa.gov> | |
real :: x(2) = 1.0 ! { dg-error "already is initialized" } | |
data x /1.0, 2.0/ ! { dg-error "already is initialized" } | |
print *, x | |
end |