BSD 4_3 release

[unix-history] / usr / src / usr.lib / libI77 / f_errlist.c

diff --git a/usr/src/usr.lib/libI77/f_errlist.c b/usr/src/usr.lib/libI77/f_errlist.c
index 722f2dc..aa7ab2e 100644 (file)
--- a/usr/src/usr.lib/libI77/f_errlist.c
+++ b/usr/src/usr.lib/libI77/f_errlist.c
@@ -1,6 +1,12 @@
 /*
 /*

-char id_f_errlist[] = "@(#)f_errlist.c 1.3";
+ * Copyright (c) 1980 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.

  *
  *

+ *     @(#)f_errlist.c 5.2     7/30/85
+ */
+
+/*

  * f77 I/O error messages
  */
 
  * f77 I/O error messages
  */
 


@@ -8,10 +14,10 @@ char *f_errlist[] =
 {
 /* 100 */      "error in format",
 /* 101 */      "illegal unit number",
 {
 /* 100 */      "error in format",
 /* 101 */      "illegal unit number",

-/* 102 */      "formatted io not allowed",
-/* 103 */      "unformatted io not allowed",
-/* 104 */      "direct io not allowed",
-/* 105 */      "sequential io not allowed",
+/* 102 */      "formatted i/o not allowed",
+/* 103 */      "unformatted i/o not allowed",
+/* 104 */      "direct i/o not allowed",
+/* 105 */      "sequential i/o not allowed",

 /* 106 */      "can't backspace file",
 /* 107 */      "off beginning of record",
 /* 108 */      "can't stat file",
 /* 106 */      "can't backspace file",
 /* 107 */      "off beginning of record",
 /* 108 */      "can't stat file",


@@ -21,15 +27,17 @@ char *f_errlist[] =
 /* 112 */      "incomprehensible list input",
 /* 113 */      "out of free space",
 /* 114 */      "unit not connected",
 /* 112 */      "incomprehensible list input",
 /* 113 */      "out of free space",
 /* 114 */      "unit not connected",

-/* 115 */      "read unexpected character",
-/* 116 */      "blank logical input field",
+/* 115 */      "invalid data for integer format term",
+/* 116 */      "invalid data for logical format term",

 /* 117 */      "'new' file exists",
 /* 118 */      "can't find 'old' file",
 /* 117 */      "'new' file exists",
 /* 118 */      "can't find 'old' file",

-/* 119 */      "unknown system error",
+/* 119 */      "opening too many files or unknown system error",

 /* 120 */      "requires seek ability",
 /* 121 */      "illegal argument",
 /* 122 */      "negative repeat count",
 /* 123 */      "illegal operation for unit",
 /* 120 */      "requires seek ability",
 /* 121 */      "illegal argument",
 /* 122 */      "negative repeat count",
 /* 123 */      "illegal operation for unit",

+/* 124 */      "invalid data for d,e,f, or g format term",
+/* 125 */      "illegal input for namelist",

 };
 
 int f_nerr = (sizeof(f_errlist)/sizeof(char *));
 };
 
 int f_nerr = (sizeof(f_errlist)/sizeof(char *));