インテル® Fortran コンパイラー 19.0 デベロッパー・ガイドおよびリファレンス
Run-Time Subroutine: Returns a message for the last error detected by a Fortran run-time routine.
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.
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