# HG changeset patch
# User jwe
# Date 787377052 0
# Node ID db38fe433efd37ae8c3cd7efa576960912e0afe4
# Parent  73cc20a6976b3801cb6c7cd708bc0822f37dc96a
[project @ 1994-12-14 03:48:48 by jwe]

diff -r 73cc20a6976b -r db38fe433efd libcruft/misc/gen-d1mach.c
--- a/libcruft/misc/gen-d1mach.c	Wed Dec 14 03:48:48 1994 +0000
+++ b/libcruft/misc/gen-d1mach.c	Wed Dec 14 03:50:52 1994 +0000
@@ -408,6 +408,7 @@
   999 write(*,1999) i\n\
  1999 format(' d1mach - i out of bounds', i10)\n\
       call xstopx (' ')\n\
+      d1mach = 0\n\
       end\n");
 
   return 0;
diff -r 73cc20a6976b -r db38fe433efd libcruft/misc/i1mach.f
--- a/libcruft/misc/i1mach.f	Wed Dec 14 03:48:48 1994 +0000
+++ b/libcruft/misc/i1mach.f	Wed Dec 14 03:50:52 1994 +0000
@@ -524,4 +524,5 @@
    10 WRITE(OUTPUT,1999) I
  1999 FORMAT(' I1MACH - I OUT OF BOUNDS',I10)
       CALL XSTOPX (' ')
+      I1MACH = 0
       END
diff -r 73cc20a6976b -r db38fe433efd libcruft/ranlib/ignuin.f
--- a/libcruft/ranlib/ignuin.f	Wed Dec 14 03:48:48 1994 +0000
+++ b/libcruft/ranlib/ignuin.f	Wed Dec 14 03:50:52 1994 +0000
@@ -95,6 +95,7 @@
       WRITE (*,*) ' Abort on Fatal ERROR'
       IF (.NOT. (err.EQ.1)) GO TO 110
       CALL XSTOPX ('LOW > HIGH in IGNUIN')
+      IGNUIN = 0
 
       GO TO 120