DO WHILE LOOP এর একটি সরল উদাহরণ:যোগফল নির্ণয়

program simpsum
implicit none
real::sum=0.,x=0.
integer::n=0
do
  write(*,*)'enter'
  read(*,*)x
  write(*,*)'u entered',x
  if(x<0.) exit
    n=n+1
    sum=sum+x
    enddo
    write(*,*)'Sum=',sum
    endprogram simpsum