1. なぜこのルールが重要なのか
数値計算の現場で、古くから使われているFORTRANの資産（レガシーコード）を扱う際、COMMONブロックという仕組みによく遭遇します。これはプログラム全体で共通の変数を共有する便利な機能ですが、使い方を誤ると、プログラムが突如として「セグメンテーションエラー（不正なメモリ参照）」で強制終了してしまうことがあります。その最大の原因の一つが「文字型」と「数値型」の安易な混在です。なぜこれがいけないのか、その理由と正しい対策を解説します。
2. 基礎知識：メモリのアライメントとは
コンピュータのメモリには、CPUが効率よくアクセスできるように「アライメント（整列）」というルールがあります。例えば、4バイトの整数（INTEGER）は4の倍数のアドレスに配置したい、というような制約です。
FORTRANのコンパイラは、COMMONブロック内の変数をこのルールに従って配置しますが、文字型（CHARACTER）は1バイト単位で扱われることが多く、数値型とはパディング（隙間埋め）のルールが異なります。これらを同じブロックに混ぜると、コンパイラがメモリ配置を正しく計算できず、意図しないアドレスにアクセスしてしまい、エラーを誘発するのです。
3. 実装・解決策：型を分離して定義する
最も確実で推奨される解決策は、「COMMONブロックを型ごとに分ける」ことです。数値データは数値専用のCOMMONへ、文字データは文字専用のCOMMONへ配置します。これにより、コンパイラによるメモリ配置の衝突を回避できます。
4. サンプルプログラム
以下に、ダメな例と、正しく修正した例を示します。
! COMMON /BAD/ X_VAL, C_NAME ! 数値と文字が混在しており非常に危険
PROGRAM COMMON_EXAMPLE
! 数値用と文字用でブロックを分ける
REAL :: A_VAL, B_VAL
CHARACTER(LEN=10) :: NAME_A, NAME_B
COMMON /NUMERIC_DATA/ A_VAL, B_VAL
COMMON /CHAR_DATA/ NAME_A, NAME_B
! 値の代入
A_VAL = 1.0
NAME_A = “SAMPLE”
PRINT , “数値データ:”, A_VAL
PRINT , “文字データ:”, NAME_A
END PROGRAM COMMON_EXAMPLE
5. 応用・注意点：現場での回避策
もし、どうしても古いプログラムの改修でCOMMONブロックの構造を変えられない場合は、以下の点に注意してください。
・EQUIVALENCEの使用は避ける
COMMONブロック同様、EQUIVALENCE文で数値型と文字型を重ねるのも極めて危険です。デバッグが困難なバグの温床になります。
・現代的なアプローチへの移行
可能であれば、COMMONブロックの使用をやめ、モジュール（MODULE）を利用することを強く推奨します。モジュール内で変数を定義すれば、アライメントの問題はコンパイラが自動的に最適化してくれるため、型混在によるメモリ破壊のリスクを安全に回避できます。
古いコードをいじるときは、「動いているから大丈夫」と思わず、メモリの境界線に意識を向けることが、ベテランエンジニアへの第一歩です。
コメント