added init66_ to f_init() routine. DLW

SCCS-vsn: usr.bin/f77/libI77/err.c 1.5

diff --git a/usr/src/usr.bin/f77/libI77/err.c b/usr/src/usr.bin/f77/libI77/err.c
index eeac538..f89c482 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/err.c
+++ b/usr/src/usr.bin/f77/libI77/err.c
@@ -1,5 +1,5 @@
 /*
 /*

-char id_err[] = "@(#)err.c     1.4";
+char id_err[] = "@(#)err.c     1.5";

  *
  * file i/o error and initialization routines
  */
  *
  * file i/o error and initialization routines
  */


@@ -145,8 +145,9 @@ prnt_fmt(n) int n;
 
 /*initialization routine*/
 f_init()
 
 /*initialization routine*/
 f_init()

-{      ini_std(STDERR, stderr, WRITE);
-       ini_std(STDIN, stdin, READ);
-       ini_std(STDOUT, stdout, WRITE);
+{      extern short init66_;
+       ini_std(STDERR, stderr, WRITE, 0);
+       ini_std(STDIN, stdin, READ, 0);
+       ini_std(STDOUT, stdout, WRITE, init66_);

 }
 
 }