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