GERROR

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

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. Visual Fortran resets string only when another error occurs.

Compatibility

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

See Also: PERROR, IERRNO

Example

USE DFPORT
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