将消息写入 FORTRAN 逻辑单元 0。
该消息针对最近检测到的系统错误。string 是字符输入参数。它写在标准错误消息前面。
示例 1:perror:
...
CALL perror ( "file is for formated I/O" )
...
返回系统错误消息。
string 是字符输出参数。
示例 2:gerror,用作子例程:
CHARACTER string*30
...
CALL gerror ( string )
WRITE(*,*) string
END
示例 3:gerror,用作函数;在本例中,未使用 string:
CHARACTER gerror*30, z*30
...
z = gerror( )
WRITE(*,*) z
END
返回最近检测到的系统错误的错误编号。
此编号仅在错误实际发生时更新。可能生成此类错误的大多数例程会在调用后返回错误代码;该值是较可靠的错误原因指示器。
示例 4:ierrno:
INTEGER ierrno, n
...
n = ierrno ( )
WRITE(*,*) n
END
libfui.a
intro(2)、perror(3F)
对 perror 的调用中的 string 长度不能超过 127 个字符。
gerror 返回的字符串长度取决于调用程序。