1 /* 2 char id_f_errlist[] = "@(#)f_errlist.c 1.2"; 3 * 4 * f77 I/O error messages 5 */ 6 7 char *f_errlist[] = 8 { 9 /* 100 */ "error in format", 10 /* 101 */ "illegal unit number", 11 /* 102 */ "formatted io not allowed", 12 /* 103 */ "unformatted io not allowed", 13 /* 104 */ "direct io not allowed", 14 /* 105 */ "sequential io not allowed", 15 /* 106 */ "can't backspace file", 16 /* 107 */ "off beginning of record", 17 /* 108 */ "can't stat file", 18 /* 109 */ "no * after repeat count", 19 /* 110 */ "off end of record", 20 /* 111 */ "truncation failed", 21 /* 112 */ "incomprehensible list input", 22 /* 113 */ "out of free space", 23 /* 114 */ "unit not connected", 24 /* 115 */ "read unexpected character", 25 /* 116 */ "blank logical input field", 26 /* 117 */ "'new' file exists", 27 /* 118 */ "can't find 'old' file", 28 /* 119 */ "unknown system error", 29 /* 120 */ "requires seek ability", 30 /* 121 */ "illegal argument", 31 /* 122 */ "negative repeat count", 32 }; 33 34 int f_nerr = (sizeof(f_errlist)/sizeof(char *)); 35