【Fortran学習｜実務向け】Fortranの行番号は実行順序を保証しない：レガシーコードの罠を回避する

導入

数値計算の現場で長年運用されているFortranコードをメンテナンスする際、最も初歩的かつ致命的な誤解の一つが「行番号（ステートメント番号）の大小がプログラムの実行順序を決定する」という思い込みです。BASIC言語などの学習経験があるプログラマが陥りやすいこの誤認は、ロジックの追跡を困難にし、デバッグ効率を著しく低下させます。本記事では、Fortranにおける行番号の真の役割と、安全なコード管理のための注意点を解説します。

基礎知識

Fortranにおける行番号は、プログラミング言語の構文上「ラベル（Label）」として機能します。これは、特定の実行行に対して「名前」を付けているに過ぎません。コンパイラはソースコードを上から下へと逐次実行しますが、GOTO文や制御構造によってその流れは分岐・跳躍します。この際、プログラムは行番号の数値（10, 20, 30…）を順序として認識するのではなく、単に「そのラベルが貼られたメモリ上のアドレス」へジャンプしているだけです。したがって、コードの物理的な並び順と数値の大小が一致していなくても、文法的には完全に正当なコードとして処理されます。

実装/解決策

レガシーコードを解読する際は、行番号の数値から実行順序を推測してはいけません。以下の手順でフローを整理することをお勧めします。
1. エディタの検索機能で、該当する行番号がどこで参照（GOTO文など）されているかを全検索する。
2. 制御の「流れ」を重視し、行番号を「処理のID」として扱う。
3. 可能であれば、古いGOTOベースの構造を、現代的なブロックIFやDOループ構造にリファクタリングして可視化する。

サンプルプログラム

以下のコードは、行番号の順序が実行順序と無関係であることを示す例です。このコードを実行すると、10番が先に定義されていても、20番が先に実行されるという「一見逆行しているような動き」をします。

! Fortran 77/90 サンプル PROGRAM LabelTest IMPLICIT NONE


    ! プログラムはまずここから実行される

    PRINT , "ステップ 1: 処理を開始します"
    ! 20番へジャンプする

    GOTO 20
    ! 10番は20番よりも後に実行される

10  PRINT , "ステップ 3: 10番に到達しました"

    STOP
    ! 20番は10番よりも前にあるが、後に実行される

20  PRINT , "ステップ 2: 20番にジャンプしました"

! 20番の処理が終わったら10番へ戻る GOTO 10 END PROGRAM LabelTest

応用・注意点

現場で最も注意すべきは、「行番号の整理」を行う際のリスクです。IDEの置換機能で安易に行番号を連番（10, 20, 30…）に振り直すと、GOTO文の参照先との整合性が取れなくなり、深刻なバグを誘発します。
また、現代的なFortran（Fortran 90以降）では、GOTO文自体を排除した構造化プログラミングが推奨されています。もし、特定の行番号がスパゲッティコードの起点となっている場合は、その箇所をサブプログラム（SUBROUTINEやFUNCTION）として切り出すことで、行番号に依存しない、堅牢で読みやすい設計への移行を検討してください。行番号はあくまで「古い互換性のために残されたラベル」と割り切り、制御構造をコードの物理的な並びに合わせるのが、保守性を高める鉄則です。