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