path: root/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