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