C
C  this program illustrates the do while loop
C
      program program17
      implicit none

      integer i
 
      i = -1
      do while(i.le.0)
       print*,' give me a positive integer '
       read*,i

      enddo
      print*,' thank you! '
      end