gcc/testsuite/gfortran.dg/impl_do_var_data.f90

   1 ! { dg-do run }
   2 ! PR 80442
   3 ! This test case used to produce an bogus error
   4 ! about the variables being below the lower
   5 ! array bounds
   6 program main
   7     implicit none
   8     integer:: i
   9     integer, dimension(3):: A
  10     data (A(i:i+2:i+1), i=1,2) /1, 2, 3/
  11     if(any(A .ne. [1,3,2])) call abort()
  12 end program