変数自体の精度を実行時に定義される変数にすることはできますか? コンパイルしようとすると、次のようになります。
SUBROUTINE FOO( VARIABLE, PRECISION_VALUE )
IMPLICIT NONE
INTEGER(4) :: PRECISION_VALUE
INTEGER(PRECISION_VALUE) :: VARIABLE
RETURN
END
コンパイラ出力は次のとおりです。
error #6683: A kind type parameter must be a compile-time constant. [PRECISION_VALUE]
INTEGER(PRECISION_VALUE) :: VARIABLE
--------------^
compilation aborted for trial.f (code 1)
とにかくその辺?に任意の値を使用できないことは理解していますがKIND
、この質問ではそれは問題ではありません。