! 例題 5-1  1 から 100 までの整数の２乗の和 ［簡単なループ ］
PROGRAM ex5_1

  IMPLICIT NONE
  INTEGER :: n, sum

  sum = 0                                  !  最初は 0 にしておく

  DO n  = 1, 100
    sum = sum + n * n
  END DO

  PRINT *, sum

END PROGRAM ex5_1