GERROR

 

Run-Time Subroutine: Returns a message for the last error detected by a Fortran run-time routine.

Module

USE IFCORE

Syntax

CALL GERROR (string)

string

(Output) Character*(*). Message corresponding to the last detected error.

The last detected error does not necessarily correspond to the most recent function call. The compiler resets string only when another error occurs.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

Example

USE IFCORE

character*40 errtext

character char1

integer*4 iflag, i4

. . .!Open unit 1 here

i4=fgetc(1,char1)

if (i4) then

iflag = 1

Call GERROR (errtext)

print *, errtext

end if

See Also