1. 導入：なぜこのテクニックを知る必要があるのか
数値計算の現場には、数十年前に書かれたFortranのソースコードが今も現役で動いているケースが多くあります。現代のプログラミングでは「構造化プログラミング」が基本ですが、古いコードを保守していると、ループの途中で処理をスキップして次の周回へ移るという動作が、現代的な「CYCLE」文ではなく「GOTO文」で書かれていることに遭遇します。この仕組みを理解することは、レガシーコードの解析や修正を行う上で避けて通れない重要なスキルです。
2. 基礎知識：DOループと行番号の仕組み
かつてのFortran（FORTRAN 77以前）では、DOループの範囲を「行番号」で指定していました。
DOループは、開始行から指定した行番号を持つ「CONTINUE文」までを一つのブロックとして扱います。
通常、ループの途中で条件判定を行い、「この条件の時は次の周回へ進みたい」という場合、現代の言語では「continue」や「CYCLE」を使いますが、古いコードではループ末尾の行番号へジャンプすることで同じ挙動を再現していました。
3. 実装と解決策：ジャンプによる制御
ループの途中で GOTO文 を使い、ループの終端である CONTINUE文 に飛ばすことで、ループの残りの処理をスキップして次の繰り返しへ強制的に移行させます。
注意点として、この手法はあくまで「レガシーな回避策」です。現代のFortran規格では「CYCLE」文を使うのが正しい作法ですが、解析時には「なぜGOTOが使われているのか」という意図（ループのどの範囲がジャンプ対象なのか）を正しく読み解く必要があります。
4. サンプルプログラム：レガシーなループ制御の例
以下のコードは、1から10までの数値のうち、偶数のみを計算して表示する例です。奇数の場合はGOTO文でループ末尾に飛ばし、処理をスキップしています。
[プログラム例]
PROGRAM LOOP_EXAMPLE
INTEGER I
C 1から10までループする
DO 200 I = 1, 10
C 奇数の場合は処理をスキップして200番へ飛ぶ
IF (MOD(I, 2) .NE. 0) GOTO 200
C 偶数の場合のみここが実行される
PRINT , ‘現在の数値は偶数です:’, I
C ループの終端（ここがジャンプ先となる）
200 CONTINUE
PRINT , ‘ループ終了’
STOP
END
5. 応用・注意点：現場でのトラブル回避
この手法を用いる際、または解析する際に最も注意すべきは「ジャンプ先の誤解」です。
大規模なコードでは、一つのCONTINUE文を複数のDOループが共有しているケース（ネストされたループの終端を一括で管理している場合）があります。この場合、安易にGOTO先を変更すると、外側のループまで終了させてしまうというバグを招きます。
・回避策：
既存のコードを改修する際は、まずその行番号が「どのDOループの終端なのか」をインデントの深さや定義位置から正確に特定してください。また、新規にコードを書く場合は、可読性と保守性の観点から、必ず現代的な「CYCLE」文や「EXIT」文を使用するようにしましょう。レガシーな手法は「理解するために」習得し、実装には「現代的な手法」を選ぶのがエンジニアの基本です。
コメント