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

10.3 データ実体の宣言 [大部分 6.0]

• 配列の最大次元数が7から15に変更されました。 例えば

     REAL array(2,2,2,2,2,2,2,2,2,2,2,2,2,2,2)
  

  は15次元の配列を宣言します。
• [3.0] 64ビット整数サポートが必須です。SELECTED_INT_KIND(18)の結果は有効な整数種別番号です。
• 配列の名前付き定数(PARAMETER)の形状を定義式より引き継ぐことができます。（推定形状配列） 書式は配列のすべての次元の上限をアスタリスクで指定します。 例えば

     REAL,PARAMETER :: idmat3(*,*) = Reshape( [ 1,0,0,0,1,0,0,0,1 ], [ 3,3 ] )
     REAL,PARAMETER :: yeardata(2000:*) = [ 1,2,3,4,5,6,7,8,9 ]
  

  ではidmat3の上下限が(1:3,1:3)でありyeardataの上下限が(2000:2008)です。
• 組込みの型指定を括弧内に含めることにより簡単に TYPE キーワードを用いた組込型を宣言することが可能です。 例えば

     TYPE(REAL) x
     TYPE(COMPLEX(KIND(0d0))) y
     TYPE(CHARACTER(LEN=80)) z
  

  は（よりわかりにくい点を除き）以下と同等です。

     REAL x
     COMPLEX(KIND(0d0)) y
     CHARACTER(LEN=80) z
  

• この拡張によりDOUBLEPRECISIONという名前の拡張型を定義することが許されなくなりました。
• [5.3] 型束縛手続宣言文が複数の型束縛手続を宣言できるようになりました。
  例）

        PROCEDURE,NOPASS :: a
        PROCEDURE,NOPASS :: b=>x
        PROCEDURE,NOPASS :: c
  

  は以下のように書くことができます。

        PROCEDURE,NOPASS :: a, b=>x, c