gcc/testsuite/g77.f-torture/execute/971102-1.f

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