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