      program test
      do while (i .gt. j)
         i = i - 1
      enddo
      end
