gcc/testsuite/gfortran.dg/g77/971102-1.f

   1 c { dg-do run }
   2        i=3
   3        j=0
   4        do i=i,5
   5          j = j+i
   6        end do
   7        do i=3,i
   8          j = j+i
   9        end do
  10        if (i.ne.7) call abort()
  11        print *, i,j
  12        end