|
|
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.