GERROR

インテル® Fortran コンパイラー 14.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