program addthem
c This program reads a list of numbers from a file named
c "numbers", and computes the sum of the numbers.
c Because each read statement reads only one number,
c each number in the file must appear on its own line.
c The "go to" loop terminates when the end of the file is
c reached - the program then prints the sum and ends.
c As no drive letter is given, the file "numbers" must
c reside in the directory from where Fortran is running.
real x, sum
open (unit=1,file="numbers")
sum = 0
5 read (1,*,end=10) x
sum = sum + x
go to 5
10 print *
print *, "The sum of the numbers in the file is", sum
print *, "Bye"
end
