12762Sdlw /*
2*2764Sdlw char id_f_errlist[] = "@(#)f_errlist.c	1.2";
32762Sdlw  *
42762Sdlw  * f77 I/O error messages
52762Sdlw  */
62762Sdlw 
7*2764Sdlw char *f_errlist[] =
82762Sdlw {
92762Sdlw /* 100 */	"error in format",
102762Sdlw /* 101 */	"illegal unit number",
112762Sdlw /* 102 */	"formatted io not allowed",
122762Sdlw /* 103 */	"unformatted io not allowed",
132762Sdlw /* 104 */	"direct io not allowed",
142762Sdlw /* 105 */	"sequential io not allowed",
152762Sdlw /* 106 */	"can't backspace file",
162762Sdlw /* 107 */	"off beginning of record",
172762Sdlw /* 108 */	"can't stat file",
182762Sdlw /* 109 */	"no * after repeat count",
192762Sdlw /* 110 */	"off end of record",
202762Sdlw /* 111 */	"truncation failed",
212762Sdlw /* 112 */	"incomprehensible list input",
222762Sdlw /* 113 */	"out of free space",
232762Sdlw /* 114 */	"unit not connected",
242762Sdlw /* 115 */	"read unexpected character",
252762Sdlw /* 116 */	"blank logical input field",
262762Sdlw /* 117 */	"'new' file exists",
272762Sdlw /* 118 */	"can't find 'old' file",
282762Sdlw /* 119 */	"unknown system error",
292762Sdlw /* 120 */	"requires seek ability",
302762Sdlw /* 121 */	"illegal argument",
312762Sdlw /* 122 */	"negative repeat count",
322762Sdlw };
332762Sdlw 
34*2764Sdlw int f_nerr = (sizeof(f_errlist)/sizeof(char *));
35