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