Portability Subroutine: Returns a message for the last error detected by a Fortran run-time routine.
Syntax
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
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