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