# GERROR

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

## Module

USE IFCORE

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.

## 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

Parent topic: G

## See Also

PERROR
IERRNO