While Loop দিয়ে অনির্দিষ্ট সংখ্যাক অঙ্কের একটি সরল যোগ;

program sumnumb
implicit none
real::x=0,sum=0
integer::n=0
do
  write(*,*)'put number'
  read(*,*)x
  write(*,*)'no. is',x
  if(x<1) exit  !to end do condition press <1
    n=n+1
    sum=sum+x
    enddo
    if(n<2) then
      write(*,*)'put more no.'
      else
        write(*,*)'Sum=',sum
        endif
        endprogram