program add_from_one_to_ten
c This is a program that will do 1+2+3...+10 and print the result to screen.
      integer i, sum
      write (*,*) 'Adding from one to ten ...'
      write (*,*)
      sum = 0
      do i =1, 10
        sum = sum +i
      end do
      write (*,*) 'The total is :', sum
      end