test

Sun Studio 12：Fortran 库参考

1.4.37 perror、gerror 和 ierrno：获取系统错误消息

这些例程执行下列函数：

perror

将消息打印到 Fortran 逻辑单元 0 stderr。

gerror

获取（上一次检测到的系统错误的）系统错误消息。 

ierrno

获取上一次检测到的系统错误的错误编号。 

1.4.37.1 perror：将消息打印到逻辑单元 0 stderr

该子例程的调用方式如下所示：

call perror( string )

string

character*n

输入 

消息。它写在上一次检测到的系统错误的标准错误消息前面。 

示例 1：


    call perror( "file is for formatted I/O" )

1.4.37.2 gerror：获取上一次检测到的系统错误的消息

该子例程或函数的调用方式如下所示：

call gerror( string )

string

character*n

输出 

上一次检测到的系统错误的消息 

示例 2：gerror() 用作子例程：


       character string*30
       …
       call gerror ( string )
       write(*,*) string

示例 3：gerror() 用作函数；未使用 string：


       character gerror*30, z*30
       …
       z = gerror( )
       write(*,*) z

1.4.37.3 ierrno：获取上一次检测到的系统错误的编号

该函数的调用方式如下所示：

n = ierrno()

返回值 

INTEGER*4

输出 

上一次检测到的系统错误的编号 

该数值只有在真正出现错误时才更新。可能会生成此类错误的大多数例程和 I/O 语句在调用之后会返回错误代码；该值能够比较可靠地反映导致出现错误状况的原因。

示例 4：ierrno()：


       INTEGER*4 ierrno, n
       …
       n = ierrno()
       write(*,*) n

另请参见 intro(2) 和 perror(3)。

注意：