use gtool_errortype(VARYING_STRING):: where
call GtoolAbort([where])
! 以下は未実装 type(GT_ERROR):: error type(VARYING_STRING):: string
error = GtoolLastError() string = Message(error)
gtool(3f) ライブラリ内部でエラーが発生した場合には 本モジュールの手続によってエラーの処理が行われます。 GtoolAbort サブルーチンは適切なメッセージを表示した後プログラムを終了します。 失敗する可能性のある、すなわち GtoolAbort を呼び出すことのあるサブルーチンはオプション引数 fail 引数を指定した場合には GtoolAbort を呼び出す代わりに fail を真に確定して呼び出し元に返ります。 このときは GtoolAbort を呼び出すか、[いずれ実装される予定の] GtoolLastError, Message を呼び出してください。