1! { dg-do compile } 2! PR fortran/84134 - this used to ICE. 3! Test case by Gerhard Steinmetz 4 5program p 6 integer :: i, x(3) 7 data (x(i+1:i+2:i),i=0,1) /1,2,3/ ! { dg-error "Nonconstant array section" } 8end 9