* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr71067_1.f90

program p
   integer :: i = 0
   integer :: z(2)
   data z /2*i/ ! { dg-error "must be a PARAMETER in DATA" }
end