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

C A DO loop approach to summing squares


      PROGRAM LOOP
      IMPLICIT NONE
      INTEGER SUM, I

      SUM = 0

      DO I = 1, 5
        SUM = SUM + I*I
      ENDDO

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

      STOP
      END