program add_from_one_to_n
c This is a program that will do 1+2+3...+n for a given n value.
      integer i, sum, n
 
      write (*,*) 'Please type in an integer value n for
     & doing 1+2+3...+n :'
      read (*,*) n

      write (*,*) 'Adding from one to ten ...'
      write (*,*)
      
      sum = 0
      do i =1, n
        sum = sum +i
      end do

      write (*,*) 'The total is :', sum

      end