C  PARAMETER文で定数IMAXを宣言する。
      PARAMETER (IMAX=3)

C  配列Aを宣言する。
      REAL A(IMAX)

C  DATA文で配列Aの値を初期化する。
C  DATA文で指定した初期値はプログラム中で変更することができる。
      DATA A /1.,3.,5./

C  変数Sにゼロを代入する。
      S = 0.

C  ここからDOループが始まる。
      DO 11 I=1,IMAX

C  変数SにA(I)の値を加える。
        S = S + A(I)

C  ここでDOループが終了する。
 11   CONTINUE

C  結果を標準出力に書き出す。
      WRITE(6,*) 'Sum =', S

      STOP
      END