導入：なぜ「行番号ラベル」によるエラー処理は危険なのか
数値計算の現場で古くから使われているFORTRANコードでは、`READ`文に`ERR=ラベル`を付与し、エラー発生時に特定の行番号へジャンプさせる記述が頻繁に見られます。しかし、この手法はプログラムの可読性を著しく低下させるだけでなく、エラー発生時の詳細な状況（なぜ失敗したのか）を把握することを不可能にします。特に大規模な数値計算コードにおいて、どこでI/Oエラーが起きたか不明なままクラッシュすることは、貴重な計算時間を無駄にする重大なリスクです。本稿では、現代的な`IOSTAT`を用いた安全なエラーハンドリング手法を解説します。
基礎知識：IOSTATとエラーコードの仕組み
`IOSTAT`（Input/Output Status）は、入出力操作の結果を整数値として取得するための仕様です。
0の場合は成功、正の値の場合はエラー（ファイル終端やフォーマット不一致など）、負の値の場合はファイル終了（EOF）を意味します。ラベル指定（`ERR=999`）が「エラーが発生したこと」しか検知できないのに対し、`IOSTAT`を使えば「どのようなエラーが起きたか」をプログラム内で判断し、柔軟なリカバリー処理や詳細なログ出力が可能になります。
実装：IOSTATによる標準的なエラーハンドリング
実装の基本は、`READ`文に`IOSTAT=変数名`を追加し、その直後に変数の値をチェックする条件分岐（`IF`文）を配置することです。これにより、プログラムの制御フローが「行番号ジャンプ」に依存せず、構造化されたロジックとなります。
サンプルプログラム：IOSTATを使用した堅牢なファイル読み込み
以下は、ファイル読み込み時にエラーが発生してもクラッシュせず、詳細な診断結果を返す実用的なコード例です。
PROGRAM SafeReadExample
IMPLICIT NONE
INTEGER :: ios, val
INTEGER :: unit_num = 10
! ファイルを開く（簡略化のため省略）
! OPEN(UNIT=unit_num, FILE='data.txt', STATUS='OLD')
! IOSTAT変数(ios)を使用して読み込みを実行
READ(unit_num, , IOSTAT=ios) val
! エラー判定のロジック
IF (ios > 0) THEN
! 正の値はシステムエラー
PRINT , "エラー発生: I/Oエラーコード =", ios
! ここで終了処理やログ出力を行う
ELSE IF (ios < 0) THEN
! 負の値はEOF（ファイル終端）
PRINT , "ファイル終端に到達しました。"
ELSE
! 0は読み込み成功
PRINT , "読み込み成功: 値 =", val
END IF
! CLOSE(unit_num)
END PROGRAM SafeReadExample
応用・注意点：現場で役立つエラーハンドリングの鉄則
1. IOSTATの値を標準出力に出す：
`IOSTAT`で得られる数値は、コンパイラのドキュメントを参照することでエラーの具体的な原因（「ファイルが存在しない」「型変換エラー」等）を特定できます。開発用コードでは必ずエラーコードをログに残すようにしましょう。
2. 戻り値を無視しない：
時折、`READ(..., IOSTAT=ios)`と書きつつ、その後の`IF`文を省略しているコードを見かけます。これでは意味がありません。必ず戻り値のチェックをセットで行うことが、レガシーコードを現代化する第一歩です。
3. 混合使用の回避：
`ERR=ラベル`と`IOSTAT`を同時に記述することは可能ですが、ロジックが複雑化するため推奨されません。既存の古いコードを改修する際は、可能な限り`ERR=`指定を削除し、`IOSTAT`による条件分岐に完全に置き換えることを強く推奨します。これにより、デバッグの難易度が大幅に下がります。
コメント