xref: /csrg-svn/usr.bin/f77/libI77/f_errlist.c (revision 24101)
12762Sdlw /*
223074Skre  * Copyright (c) 1980 Regents of the University of California.
323074Skre  * All rights reserved.  The Berkeley software License Agreement
423074Skre  * specifies the terms and conditions for redistribution.
52762Sdlw  *
6*24101Sjerry  *	@(#)f_errlist.c	5.2	07/30/85
723074Skre  */
823074Skre 
923074Skre /*
102762Sdlw  * f77 I/O error messages
112762Sdlw  */
122762Sdlw 
132764Sdlw char *f_errlist[] =
142762Sdlw {
152762Sdlw /* 100 */	"error in format",
162762Sdlw /* 101 */	"illegal unit number",
1722020Slibs /* 102 */	"formatted i/o not allowed",
1822020Slibs /* 103 */	"unformatted i/o not allowed",
1922020Slibs /* 104 */	"direct i/o not allowed",
2022020Slibs /* 105 */	"sequential i/o not allowed",
212762Sdlw /* 106 */	"can't backspace file",
222762Sdlw /* 107 */	"off beginning of record",
232762Sdlw /* 108 */	"can't stat file",
242762Sdlw /* 109 */	"no * after repeat count",
252762Sdlw /* 110 */	"off end of record",
262762Sdlw /* 111 */	"truncation failed",
272762Sdlw /* 112 */	"incomprehensible list input",
282762Sdlw /* 113 */	"out of free space",
292762Sdlw /* 114 */	"unit not connected",
3017973Slibs /* 115 */	"invalid data for integer format term",
3122020Slibs /* 116 */	"invalid data for logical format term",
322762Sdlw /* 117 */	"'new' file exists",
332762Sdlw /* 118 */	"can't find 'old' file",
3419916Slibs /* 119 */	"opening too many files or unknown system error",
352762Sdlw /* 120 */	"requires seek ability",
362762Sdlw /* 121 */	"illegal argument",
372762Sdlw /* 122 */	"negative repeat count",
3810223Sdlw /* 123 */	"illegal operation for unit",
3917973Slibs /* 124 */	"invalid data for d,e,f, or g format term",
40*24101Sjerry /* 125 */	"illegal input for namelist",
412762Sdlw };
422762Sdlw 
432764Sdlw int f_nerr = (sizeof(f_errlist)/sizeof(char *));
44