changed to F_ER codes. DLW

[unix-history] / usr / src / usr.bin / f77 / libI77 / lwrite.c

diff --git a/usr/src/usr.bin/f77/libI77/lwrite.c b/usr/src/usr.bin/f77/libI77/lwrite.c
index 78b88b4..f80c17e 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/lwrite.c
+++ b/usr/src/usr.bin/f77/libI77/lwrite.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_lwrite[] = "@(#)lwrite.c       1.1";
+char id_lwrite[] = "@(#)lwrite.c       1.2";

  *
  * list directed write
  */
  *
  * list directed write
  */


@@ -81,7 +81,7 @@ l_write(number,ptr,len,type) ftnint *number,type; flex *ptr; ftnlen len;
                        ERR(lwrt_A((char *)ptr,len));
                        break;
                default:
                        ERR(lwrt_A((char *)ptr,len));
                        break;
                default:

-                       fatal(119,"unknown type in lwrite");
+                       fatal(F_ERSYS,"unknown type in lwrite");

                }
                ptr = (flex *)((char *)ptr + len);
        }
                }
                ptr = (flex *)((char *)ptr + len);
        }