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 *));