该子例程的调用方式如下所示：
call perror( string )
string
character*n
输入
消息。它写在上一次检测到的系统错误的标准错误消息前面。
示例 1：
call perror( "file is for formatted I/O" )
