可搬用サブルーチン:Fortran 実行時ルーチンで最後に検出されたエラーのメッセージを返します。
モジュール:USE DFPORT
形式
CALL GERROR (string)
string
(出力) CHARACTER*(*)。最後に検出されたエラーに対応するメッセージ。
最後に検出されたエラーは,最も最後に呼び出された関数に対応している必要はありません。Visual Fortran は,他のエラーが発生した時のみ string をリセットします。
互換性
CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB
関連情報
例
USE DFPORT character*40 errtext character char1 integer*4 iflag, i4 . . . ! 装置番号 1 をここで開きます。 i4=fgetc(1,char1) if (i4) then iflag = 1 Call GERROR (errtext) print *, errtext end if