implicit none
integer:: i,n,somma

! versione con if logico e go to (deprecata)

write(6,*)'dammi N'
read(5,*) n

somma=0
i=1
1 if(i > n)go to 2
  somma=somma+i
  i=i+1
  go to 1
2 write(6,*)'somma=',somma
  end