導入
数値計算の世界では、歴史あるFORTRANコードを保守する機会が多々あります。その際、頻繁に遭遇するのが「行番号（Statement Labels）」の乱立です。かつてのFORTRANではすべての行に行番号を振ることが可能でしたが、現代のプログラミングにおいてこれを無秩序に使用することは、コードの可読性を著しく下げ、バグの温床となります。本記事では、なぜ行番号の多用が危険なのか、そして現代的な構造化プログラミングへどう移行すべきかを解説します。
基礎知識
行番号とは、ソースコード上の特定の文を識別するための整数値です。古くは、GOTO文による制御フローの移動や、FORMAT文による入出力の書式指定のために必須でした。しかし、現代のFORTRAN（Fortran 90以降）では、IF-THEN-ELSEやDOループといった「構造化構文」が充実しており、論理的なブロック化が可能です。行番号を多用する手法は「非構造化プログラミング」と呼ばれ、コードの実行順序を追うのが困難になるため、現代のエンジニアリングでは推奨されません。
実装/解決策
行番号の乱立を防ぐための第一歩は、GOTO文を排除することです。
1. GOTOの置換: 複雑な条件分岐は、IF-THEN-ELSEやSELECT CASEに書き換えます。
2. ループの構造化: DOループの終端にCONTINUE文と行番号を置く古い書き方は、END DOに置き換えます。
3. 局所的な利用: どうしても必要な場合（例外処理やFORMAT指定など）のみに限定し、番号はインクリメントルール（10, 20, 30…）に従って整理しましょう。
サンプルプログラム
以下のコードは、古い形式から現代的な形式への書き換え例です。
＜古い形式（非推奨）＞
10 IF (X .LT. 0) GOTO 30
20 PRINT , “正の値です”
30 CONTINUE
＜現代的な形式（推奨）＞
IF (X .GE. 0) THEN
PRINT , “正の値です” ! 構造化することで行番号が不要になります
END IF
応用・注意点
現場での移行作業には以下の点に注意してください。
・FORMAT文の回避: 現代では内部書き出し（Internal Write）や、FORMAT識別子を直接指定しない方法が推奨されます。
・ジャンプの可視化: レガシーコードを解読する際は、行番号からGOTO先を追うのではなく、IDEの機能を使って「呼び出し元・呼び出し先」を可視化するツールを活用してください。
・バグの回避: 行番号を書き換える際は、他の箇所からの参照（GOTO文）が残っていないか、必ずコンパイル時の警告や静的解析ツールを用いて確認してください。
行番号を減らすことは、コードの「見通し」を良くすることに直結します。まずはGOTO文の削減から始めてみましょう。
コメント