program do_while
implicit none

integer i
i=1
do while (i<10)
   print*,i
   i=i+1
enddo
end
