program essai
integer i, j 

do i=1,10
   print *,i
   if (i==5) exit
end do

end