<i>n</i>AG Fortran Compilerマニュアル:詳細

ナビゲーション：前へ上へ次へ

4.6 詳細

4.6.1 マクロ、変数定義のスコープ

定義のスコープはその定義が置かれている行から始まり、現行ファイルの終端まで続きます（#includeされたファイルからのソース行もすべて含みます）。

しかし次のものに対しては影響しません：

FortranのINCLUDE行によって取り込まれたファイル
fpp及びFortranコメント
IMPLICITの一文字指定
FORMAT文
数値、文字定数

マクロの影響範囲については#undef指示文によって制限を加えることができます。

4.6.2 マクロ定義の終端

マクロ定義の長さは任意ですが論理的な行で言うと1行に限られます。これらは複数の物理的な行に分かれていても構いませんが、その際、最後の行以外には継続行があることを示す‘\’（バックスラッシュ）を配置します。バックスラッシュとニューラインの記号は置換テキストの対象となりません。バックスラッシュを置かずにニューラインが現れた場合にはマクロ定義は終結したものとみなされます。

次はマクロ定義を複数行に分けた例です：

  #define long_macro_name(x,\
  y) x*y

Condition は以下に規定する定数式です。対応する最初の#elif, #else、または#endif指示文に至る後続行は、condition が真である場合に限り出力中に現れます。

#elif指示文に続く行は次の場合に限り出力中に現れます。

対応する#if指示文の条件が偽であり、
対応するそれ以前の#elif指示文の条件がすべて偽であり、かつ
この#elif指示文の条件が真である。

条件が真の場合、後続の対応する#elif, #else指示文は対応する #endifに至るまですべて無視されます。

#else指示文に続く行は、該当条件文中におけるそれ以前の条件がすべて偽の場合に限り出力中に現れます。

定数式中でマクロ関数‘defined’を使用することができます。それは引数が定義されたマクロ名であった場合に限り真となります。

以下の演算が許されます。

C言語演算： <, >, ==, !=, >=, <=, +, -, /, *, %, <<, >>, &, ~, |, &&, ||. これらはcppとの互換性のため、C言語セマンティクスに従って解釈されます。
Fortran言語演算： .AND., .OR., .NEQV., .XOR., .EQV., .NOT., .GT., .LT., .LE., .GE., .NE., .EQ., **.
Fortran論理定数： .TRUE., .FALSE..

定数式中ではこれらの項と整定数表現、名前のみが使用できます。マクロ名でない名前は‘0’であるかのように扱われます。 C演算‘!=’（not equal）は#ifまたは#elif指示文中で使用できますが、#define指示文中では使用できません。文字 ‘!’がFortranコメントの開始を意味するものと解釈されてしまうからです。

#ifdef name: 指定された名前が#define指示文、または-D オプションによって定義され、かつ#undef指示文の介在がない場合に限り、対応する #else, #elif、または#endifまでの後続行が出力中に現れます。指示文中、名前より後に追加のトークンを記述することはできません。
#ifndef name: 指定された名前が定義されていないか、あるいはその定義が#undef指示文によって除去された場合に限り、対応する#else, #elif、または #endifまでの後続行が出力中に現れます。指示文中、名前より後に追加のトークンを記述することはできません。
#elif constant-expression: #if, #ifdef、または#ifndef指示文と対応する#else または#endif指示文の間に任意の数の#elif指示文を配置することができます。
#else: これは条件指示文の意味を反転させます。先行する条件文が行を含めるべきことを示している場合、#elseと対応する#endifの間にある行は無視されます。先行する条件文が行を無視すべきことを示している場合、後続の行が出力中に含められます。
#endif: 条件指示文#if, #ifdef、または#ifndefのいずれかで開始された行選択を終了させます。それぞれの条件指示文には対応する#endifがなくてはなりません。

4.6.6 外部ファイルの取込み

ファイルは次のようにサーチされます。

#include "filename"の場合：

処理中のファイルが見出されたディレクトリ
-I option によって指定されたディレクトリ
デフォルトディレクトリ

#include <filename>の場合：

-I option によって指定されたディレクトリ
デフォルトディレクトリ

Fpp指示文（#文字で始まる行）はソースコードの任意の位置、特に Fortran継続行の直前にも置くことができます。ただし継続記号によって複数行に分けられたマクロコール中に配置することは許されません。

4.6.7 コメント

Fppに対しては次の2種類のコメントが使用できます：

Fortran言語のコメント。第1桁に‘C’, ‘c’, ‘*’, ‘d’, ‘D’のいずれかの文字を含むソース行はコメント行とみなされます。これらの行中ではマクロ展開は行われません。 ‘!’文字の場合は単行のコメント行として解釈されます。ただし#ifまたは#elif指示文中の定数式中で使用された場合を除きます。
文字列‘/*’と‘*/’で囲まれたFppコメント。これらは出力の対象から除外されます。 Fppコメントはネスト化できるので、それぞれの開始シーケンス‘/*’ に対しては対応する終了シーケンス‘*/’が存在しなくてはなりません。 Fppコメントはソースコード上の多くの部分をコンパイル対象からはずす際に便利です。 “#if 0 ... #endif”を使っても同じ効果が得られます。

4.6.8 マクロ関数

マクロ関数

defined(name) または defined name

はname がマクロとして定義されていれば.TRUE.に、そうでない場合には.FALSE.に展開されます。

4.6.9 マクロ式

マクロ展開の過程で行の桁幅が72桁（固定形式の場合）、あるいは132桁（自由形式の場合）を越えた場合、適切な継続行がfppによって挿入されます。

固定形式においてはラベル部分（1-5桁）中でのマクロ展開に制限があります：

（引数を含む）マクロコールは5桁目を越えることはできません。
名前がFortranのコメント文字のいずれかで始まるマクロコールはコメントとして扱われます。
マクロ展開の結果、5桁目を越える文字列が生成されることがあります。その場合には警告メッセージが発行されます。

固定形式で-Xw オプションが指定されたとき、マクロコールがステートメント用の場所にあり、かつマクロ名がFortranのキーワードと同一であったり、同じ文字列で始まる場合には、あいまいさが生じます。例えば次の例の場合：

  #define call p(x)   call f(x)
          call p(0)

‘call p’というトークンシーケンスをどう解釈すべきか、fppには判断が付きません。マクロ名とも考えられるからです。現状の実装は次のようになっています：

より長い識別子（上の例ではcallp）が選択されます。
この識別子より最長のマクロ名、またはキーワードが抽出されます。
マクロ名が抽出された場合にはマクロ展開が実行されます。その名前があるキーワードで始まる場合には、fppは適切な警告メッセージを出力します。
識別子の残りの部分は一つの識別子とみなされます。

上の例の場合、マクロ展開が行われ、次のような警告メッセージが発せられることになります：

warning: possibly incorrect substitution of macro callp

このような事態は固定形式のソースコードをプリプロセスする際で、なおかつ空白文字がトークンの区切りとして解釈されないときにのみ起るという点に注意してください。なお、マクロ名がキーワードの先頭部分と一致する場合であっても：

     #define INT    INTEGER*8
             INTEGER k

のような場合には上記アルゴリズムにより、INTEGERキーワードがINTというマクロ名より先に見つかることになります。従ってこのようなマクロ定義をプリプロセスする場合には警告メッセージは発行されません。

nAG Fortran コンパイラ 5.2 マニュアル