|
|
1.1 ! root 1: /* ! 2: char id_f_errlist[] = "@(#)f_errlist.c 1.3"; ! 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: /* 123 */ "illegal operation for unit", ! 33: }; ! 34: ! 35: int f_nerr = (sizeof(f_errlist)/sizeof(char *));
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.