C Created: Joe Zachary, January 26, 1993
C Modified: 

C Another approach to summing squares


      PROGRAM LOOP
      IMPLICIT NONE
      INTEGER SUM, I

      SUM = 0
      I = 1

      SUM = SUM + I*I
      I = I + 1

      SUM = SUM + I*I
      I = I + 1

      SUM = SUM + I*I
      I = I + 1

      SUM = SUM + I*I
      I = I + 1

      SUM = SUM + I*I
      I = I + 1

      PRINT *, 'The sum of squares is ', SUM

      STOP
      END