FORTRAN 77 言語リファレンス

付録 D

VMS 言語拡張

この付録では Fortran 77 がサポートする VMS 言語拡張について説明します。これらの拡張はすべて規格外です。 ©

背景

この Fortran コンパイラには、VMS から Solaris 環境への Fortran 77 プログラムの移植を簡単にするために VMS 拡張が含まれています。このコンパイラは VMS Fortran とほぼ完全な互換性を持っています。これらの拡張は dbx と f77 に含まれています。

サンの Fortran の VMS 言語機能

以下のリストは、f77 に含まれる VMS 機能の要約です。詳細は本書の他の部分で説明します。

• 変数群入出力
• ラベルなし DO ... END DO
• 確定していない DO WHILE ... END DO
• BYTE データ型
• 整数についての論理演算および論理についての算術演算
• FORMAT 文のための追加の欄と編集記述子
  
  
  • 残りの文字 (Q)
    
  • キャリッジ制御 ($)
    
  • 8 進 (O)
    
  • 16 進 (X)
    
  • 16 進 (Z)
• FORMAT 文における w、d、e の各欄のデフォルト欄記述子
• ホレリス編集記述子への読み取り
• OPEN のための APPEND オプション
• 長い名前 (32 文字)
• 名前における "_" と "$"
• -e オプションが設定されている長いソース行 (132 文字)
• 記録、構造体、共用体、マップ
• %LOC 関数によるアドレスの獲得
• %VAL 関数による引数渡し
• 行末注釈
• OPTIONS 文
• VMS タブフォーマットソース行は有効です。
• 共通の初期化

  BLOCK DATA 副プログラム外で共通ブロックの変数を初期化することができます。共通ブロックのいくつかの部分を初期化することができますが、複数の副プログラムにある 1 つの共通ブロックの部分を初期化することはできません。

• 50 進数

  50 進数の定数は f77 ではビット列定数として扱われます。つまり、型は想定されていません。

• IMPLICIT NONE は IMPLICIT UNDEFINED (A-Z) として扱われます。
• VIRTUAL は DIMENSION として扱われます。
• 宣言で初期化を行います。

宣言文における変数の初期化は許可されます。例を次に示します。

CHARACTER*10 NAME /'Nell'/

• 文字型でない書式指定子

  実行時書式指定子が CHARACTER 型でない場合も、コンパイラは受け付けます。
  Fortran 77 規格では CHARACTER 型を必要とします。

• 副プログラム呼び出しにおける省略された引数

  コンパイラはサブルーチン呼び出しにおける省略された実引数を受け付けます。つまり、2 つの連続するコンマは NULL ポインタにコンパイルされます。その仮引数を参照すると、セグメンテーション違反が生じます。

• REAL*16

  (SPARC のみ) コンパイラは REAL*16 型の変数を 4 倍精度として扱います。

• 非文字変数

  Fortran 77 規格では、OPEN および INQUIRE のときの FILE= 指定子は CHARACTER 型の式でなければなりません。しかし、f77 は数値変数または配列要素の引用を受け付けます。

• 連続演算子

  f77 では、2 番目の演算子が単項 + または - の場合、2 つの連続する算術演算子が許可されます。

  X = A ** -B

  上記の文は次のように扱われます。

  X = A ** (-B)

• 不正な実数式

  コンパイラは、整数式を予想している場所に REAL 式を見つけるとそれを切り捨て、INTEGER への型変換を行います。

例 : f77 が不正な実数式を整数に変換する場合

• 選択 RETURN
  
• 次元宣言子および配列記述子
  
• 部分列選択子
  
• 計算形 GO TO
  
• 論理装置番号、記録番号、記録長

• 型なし数値定数

  2 進、16 進および 8 進の定数は VMS 形式で受け付けられます。

例 : 定数 ― 2 進 (B)、8 進 (O)、16 進 (X または Z)

DATA N1 /B'0011111'/, N2/O'37'/, N3/X'1f'/, N4/Z'1f'/

• FUNCTION にではなく、関数名に長さ指定

  コンパイラは、関数宣言における規格外の長さ指定子を受け付けます。

例 : FUNCTION というワードよりも関数名としてのサイズ

INTEGER FUNCTION FCN*2 ( A, B, C )

• TYPE 文と ACCEPT 文は許可されます。
• 選択戻り

  選択戻りの実引数のための規格外の & 構文は Fortran 77 規格の * 構文として扱われます。次に例を示します。

  CALL SUBX ( I, *100, Z) ! 標準 CALL SUBX ( I, &100, Z ) ! 非標準の代替構文

• ENCODE 文と DECODE 文は受け付けられます。
• 'N 記録指定子を持つ直接入出力

  直接入出力文のための規格外の標準記録指定子 'N は受け付けられます。

例 : 記録指定子のための規格外の形式

READ ( K ' N ) LIST

上記の形式は次のように扱われます。

READ ( UNIT=K, REC=N ) LIST

論理装置番号は K であり、記録数は N です。

• NAME、RECORDSIZE、TYPE の各オプション − OPEN は次の代替オプションを持っています。
  
  
  • NAME は FILE として扱われます。
    
  • RECORDSIZE は RECL として扱われます。
    
  • TYPE は STATUS として扱われます。
• DISPOSE=p

  CLOSE 文における DISPOSE=p 句は、STATUS=p として扱われます。

• 特殊組込み関数

  コンパイラは特定の特殊組込み関数を備えています。

  
  
  • %VAL は受け付けられます。
    
  • %LOC は LOC として扱われます。
    
  • %REF (expr) は expr として (expr が CHARACTER 型の場合は警告付きで) 扱われます。
    
  • %DESCR は翻訳不能の関数として報告されます。
• FORMAT 文における変数式

  一般に、FORMAT 文の中では、整定数を任意の式に置き換えることができます。
  唯一の例外は、nH... 編集記述子における n です。式そのものは角括弧で囲まなければなりません。
  例 : 次の文における 6 は定数です。

  1 FORMAT( 3F6.1 )

6 は次のように変数 N に置き換えることができます。

1 FORMAT( 3F<N>.1 )

-xl または -vax=spec を必要とする VMS 機能

特殊なオプションを使用しなくても、ほとんどの VMS 機能は自動的に得られますが、f77 コマンド行に -xl オプションを追加しなければならないものもあります。

一般に、ソース文が VMS か f77 のどちらの動作様式としても解釈可能で、ユーザーが VMS の動作様式を希望する場合、この -xl オプションが必要です。この場合、-xl オプションはコンパイラにそれを VMS Fortran として解釈するよう強制します。

これら VMS 拡張機能を個々に指定することができる -vax=spec オプションもあります。詳細は、『Fortran ユーザーズガイド』を参照してください。

-xl[d] オプションを必要とする機能の要約

以下の機能を使用するためには -xl[d] オプションが必要です。

• 書式なし記録のサイズ指定の単位がバイトでなくワード (-xl)
• VMS スタイルの論理ファイル名 (-xl)
• 8 進定数を指定する引用符 (") 文字 (-xl)
• 文字定数内の通常文字としてのバックスラッシュ (\) 文字 (-xl)
• PARAMETER 文の規格外の形式 (-xl)
• 注釈行、あるいは Fortran 77 文としてのデバッグ行 (-xld)
• VMS Fortran の構造体にする (-xl)

-xl[d] オプションを必要とする機能の詳細

詳細は次のとおりです。

• バイト単位の書式なし記録サイズ

  f77 を使用すると、書式なし直接探査ファイルは常にバイト単位の論理記録サイズで開きます。

-xl[d] オプションを設定しなかった場合、OPEN オプション RECL=n の引数 n は、記録サイズのために使用するバイト数であると想定されます。

-xl[d] オプションを設定した場合、OPEN オプション RECL=n の引数 n は、ワード数であると想定されるので、コンパイラは n*4 を記録サイズのためのバイト数として使用します。

-xl[d] オプションを設定した場合、ファイルが書式付きか、書式付きでないかをコンパイラが判断できないと、記録サイズを調整する必要があるかもしれないという警告メッセージが出されます。これは、情報が可変文字列で渡される場合に起こる可能性があります。

INQUIRE 文により返される記録サイズはコンパイラにより調整されません。つまり、INQUIRE は常にバイト数を返します。

これらの記録サイズは、書式なし直接探査ファイルにだけ適用されるという点に注意してください。

• VMS スタイルの論理ファイル名

-xl[d] オプションを設定した場合、コンパイラは、環境変数 LOGICALNAMEMAPPINGを見つけ、論理名と UNIX パス名との間のマッピングを定義していることが分かれば、INCLUDE 文において VMS 論理ファイル名を解釈します。

環境変数を次の形式の文字列に設定します。

"lname1=path1; lname2=path2; ..."

VMS スタイルの論理ファイル名の規則は、以下のとおりです。

• 各々の lname は論理名であり、各々の path1、path2 などはディレクトリのパス名です (後続 / はなし)。
  
• コンパイラはこのような文字列を構文解析するとき、すべての空白を無視します。
  
• コンパイラは INCLUDE 文におけるファイル名から後続の /[no]list を除去します。
  
• ファイル名における論理名は VMS ファイル名の最初の : で区切られます。
  
• コンパイラは lname1:file から path1/file 形式へファイル名を変換します。
  
• 論理名については、大文字/小文字が区別されます。INCLUDE 文で LOGICALNAMEMAPPING に指定されていない論理名は、そのファイル名が変更せずにそのまま使用されます。

• 8 進定数を指定する引用符 (") 文字

-xl[d] コンパイラオプションを設定した場合、VMS Fortran の 8 進整定数はその 10 進形式として扱われます。

例 : VMS の 8 進整定数

JCOUNT = ICOUNT + "703

上記の文は次のように扱われます。

JCOUNT = ICOUNT + 451

-xl[d] オプションが設定されていない場合、"703 はエラーになります。

-xl[d] が設定されている場合、VMS Fortran の "703 という表記法は、整数の 8 進定数からその整数の 10 進定数 (この場合は 451) に変換するよう f77 にシグナルを送ります。VMS Fortran では "703 は文字定数の最初に使用することはできないという点に注意してください。VMS Fortran 文字定数は引用符ではなく、アポストロフィで区切られるからです。

• 文字定数内のバックスラッシュ (\) 文字

-xl[d] オプションが設定されている場合、文字列におけるバックスラッシュは通常の文字として、設定されていない場合は、エスケープ文字として扱われます。

• PARAMETER 文の規格外の形式

-xl[d] オプションが設定されていれば、代替 PARAMETER 文の構文は許可されます。
例 : PARAMETER 文の VMS 代替形式は括弧を省略します。

PARAMETER FLAG1 = .TRUE.

• 注釈行、あるいは Fortran 文としてのデバッグ行 (-xld)

-xld オプションが設定されているかどうかによって、コンパイラは、注釈行あるいは Fortran 文としてデバッグ行を解釈します。-xld オプションが設定されている場合は、コンパイルされます。設定されていなければ、それらは注釈になります。

例 : デバッグ行

REAL A(5) / 5.0, 6.0, 7.0, 8.0, 9.0 / DO I = 1, 5 X = A(I)**2 D PRINT *, I, X END DO PRINT *, '終了' END

-xld を付けると、上記の例では I と X が出力されます。-xld がなければ、それらは出力されません。

• VMS Fortran の構造体にする

ユーザーのプログラムで VMS 構造体を使用する方法が詳しくわかっている場合は、この機能を使用してください。C と構造体を共有する必要がある場合は、デフォルトを使用します。-xl は使用しません。

サポートされていない VMS Fortran

ほとんどの VMS Fortran 拡張は f77 コンパイラに組み込まれています。コンパイラはソースファイルのサポートされていない文について標準エラーにメッセージを出力します。

以下に、サポートされていない VMS 文を列挙します。

• DEFINE FILE 文
• DELETE 文
• UNLOCK 文
• FIND 文
• REWRITE 文
• READ 文の KEYID とキー指定子
• 規格外の INQUIRE 指定子
  
  
  • CARRIAGECONTROL
    
  • DEFAULTFILE
    
  • KEYED
    
  • ORGANIZATION
    
  • RECORDTYPE
• 規格外の OPEN 指定子
  
  
  • ASSOCIATEVARIABLE
    
  • BLOCKSIZE
    
  • BUFFERCOUNT
    
  • CARRIAGECONTROL
    
  • DEFAULTFILE
    
  • DISP[OSE]
    
  • EXTENDSIZE
    
  • INITIALSIZE
    
  • KEY
    
  • MAXREC
    
  • NOSPANBLOCKS
    
  • ORGANIZATION
    
  • RECORDTYPE
    
  • SHARED
    
  • USEROPEN
• 組み込み関数 %DESCR
• OPTIONS 文における次のパラメータ
  
  
  • [NO]G_FLOATING
    
  • [NO]F77
    
  • CHECK=[NO]OVERFLOW
    
  • CHECK=[NO]UNDERFLOW
• INCLUDE 文の一部

  INCLUDE 文は部分的に変換されます。INCLUDE 文はオペレーティングシステムに依存しているので、完全な自動変換はできません。VMS バージョンでは UNIX ファイル名の延長と区別できないモジュール名および LIST 制御指令が許可されます。また、VMS は英文字の大文字小文字を区別しないので、プログラマが大文字化について一貫していなければ、意図に反して異なる結果になります。

• 短整数を期待している場所での 長整数の利用

  VMS Fortran では、短整数を予想しているサブルーチンに 長整数の引数を渡すことができます。VAX は下位バイトに整数をアドレス指定するため、長整数が 16 ビットに納まる場合はこれでうまくいきます。しかし SPARC コンピュータでは無効です。

• オペレーティングシステムに直接関係する VMS システムコール
• 2 つ以上の副プログラムにおける共通ブロックの初期化
• ブロックをロードする順序に依存するように共通ブロックをアルファベット化します。-M mapfile オプションのついた古いブロックを ld に指定することができます。
• 次の両方に対してデフォルトを使用する場合、
  
  
  • OPEN オプションの BLANK=
    
  • BN/BZ/B 書式編集指定子

書式付き数値入力では、埋め込み空白および後続空白が無視されます。対応する VMS デフォルトは、それらの空白をゼロとして扱います。