Developer Guide and Reference

ID 767251
Date 10/31/2024
Public
Document Table of Contents

GERROR

Runtime Subroutine: Returns a message for the last error detected by a Fortran runtime 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

See Also