该子例程或函数的调用方式如下所示:
|
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
|