1*2762Sdlw /* 2*2762Sdlw char id_f_errlist[] = "@(#)f_errlist.c 1.1"; 3*2762Sdlw * 4*2762Sdlw * f77 I/O error messages 5*2762Sdlw */ 6*2762Sdlw 7*2762Sdlw static char *f_errlist[] = 8*2762Sdlw { 9*2762Sdlw /* 100 */ "error in format", 10*2762Sdlw /* 101 */ "illegal unit number", 11*2762Sdlw /* 102 */ "formatted io not allowed", 12*2762Sdlw /* 103 */ "unformatted io not allowed", 13*2762Sdlw /* 104 */ "direct io not allowed", 14*2762Sdlw /* 105 */ "sequential io not allowed", 15*2762Sdlw /* 106 */ "can't backspace file", 16*2762Sdlw /* 107 */ "off beginning of record", 17*2762Sdlw /* 108 */ "can't stat file", 18*2762Sdlw /* 109 */ "no * after repeat count", 19*2762Sdlw /* 110 */ "off end of record", 20*2762Sdlw /* 111 */ "truncation failed", 21*2762Sdlw /* 112 */ "incomprehensible list input", 22*2762Sdlw /* 113 */ "out of free space", 23*2762Sdlw /* 114 */ "unit not connected", 24*2762Sdlw /* 115 */ "read unexpected character", 25*2762Sdlw /* 116 */ "blank logical input field", 26*2762Sdlw /* 117 */ "'new' file exists", 27*2762Sdlw /* 118 */ "can't find 'old' file", 28*2762Sdlw /* 119 */ "unknown system error", 29*2762Sdlw /* 120 */ "requires seek ability", 30*2762Sdlw /* 121 */ "illegal argument", 31*2762Sdlw /* 122 */ "negative repeat count", 32*2762Sdlw }; 33*2762Sdlw 34*2762Sdlw static int f_nerr = (sizeof(f_errlist)/sizeof(char *)); 35*2762Sdlw 36