2.9BSD - /usr/src/lib/libI77/f_errlist.c

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

Defined variables