|
|
1.1 root 1: /*
2: * Copyright (c) 1980 Regents of the University of California.
3: * All rights reserved. The Berkeley software License Agreement
4: * specifies the terms and conditions for redistribution.
5: *
6: * @(#)f_errlist.c 5.2 7/30/85
7: */
8:
9: /*
10: * f77 I/O error messages
11: */
12:
13: char *f_errlist[] =
14: {
15: /* 100 */ "error in format",
16: /* 101 */ "illegal unit number",
17: /* 102 */ "formatted i/o not allowed",
18: /* 103 */ "unformatted i/o not allowed",
19: /* 104 */ "direct i/o not allowed",
20: /* 105 */ "sequential i/o not allowed",
21: /* 106 */ "can't backspace file",
22: /* 107 */ "off beginning of record",
23: /* 108 */ "can't stat file",
24: /* 109 */ "no * after repeat count",
25: /* 110 */ "off end of record",
26: /* 111 */ "truncation failed",
27: /* 112 */ "incomprehensible list input",
28: /* 113 */ "out of free space",
29: /* 114 */ "unit not connected",
30: /* 115 */ "invalid data for integer format term",
31: /* 116 */ "invalid data for logical format term",
32: /* 117 */ "'new' file exists",
33: /* 118 */ "can't find 'old' file",
34: /* 119 */ "opening too many files or unknown system error",
35: /* 120 */ "requires seek ability",
36: /* 121 */ "illegal argument",
37: /* 122 */ "negative repeat count",
38: /* 123 */ "illegal operation for unit",
39: /* 124 */ "invalid data for d,e,f, or g format term",
40: /* 125 */ "illegal input for namelist",
41: };
42:
43: 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.