program sommatoria
implicit none
integer:: i,n,somma

! versione con do while

n=1
do while(n .ne. 0)
   write(6,*)'dammi N positivo (0 si ferma)'
   read(5,*) n
   
   if(n < 0) then
      write(6,*)'Ho detto positivo !!!!'
   else
      if(n> 0) then
         somma=0
         i=1
         do while(i <= n)
            somma=somma+i
            i=i+1
         enddo
         write(6,*)'somma=',somma
      endif
   endif
enddo
end program sommatoria