GERROR

可搬用サブルーチン:Fortran 実行時ルーチンで最後に検出されたエラーのメッセージを返します。

モジュールUSE DFPORT

形式

CALL GERROR (string)

string
(出力) CHARACTER*(*)。最後に検出されたエラーに対応するメッセージ。

最後に検出されたエラーは,最も最後に呼び出された関数に対応している必要はありません。Visual Fortran は,他のエラーが発生した時のみ string をリセットします。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

IERRNO, PERROR

	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