# HG changeset patch
# User jwe
# Date 819459496 0
# Node ID 67678f04b8ba9e8b08e3b8bfc4ff54dc7000c13f
# Parent  5a8ad3d12304e5541aa10633b59a2168bf336d3f
[project @ 1995-12-20 11:37:22 by jwe]

diff -r 5a8ad3d12304 -r 67678f04b8ba liboctave/CMatrix.cc
--- a/liboctave/CMatrix.cc	Wed Dec 20 11:02:49 1995 +0000
+++ b/liboctave/CMatrix.cc	Wed Dec 20 11:38:16 1995 +0000
@@ -794,9 +794,12 @@
   F77_FCN (zgeco, ZGECO) (tmp_data, nr, nc, ipvt, rcond, z);
 
   volatile double rcond_plus_one = rcond + 1.0;
-  if (rcond_plus_one == 1.0 && ! force)
+
+  if (rcond_plus_one == 1.0)
+    info = -1;
+
+  if (info == -1 && ! force)
     {
-      info = -1;
       copy (tmp_data, data (), len);  // Restore contents.
     }
   else
diff -r 5a8ad3d12304 -r 67678f04b8ba liboctave/dMatrix.cc
--- a/liboctave/dMatrix.cc	Wed Dec 20 11:02:49 1995 +0000
+++ b/liboctave/dMatrix.cc	Wed Dec 20 11:38:16 1995 +0000
@@ -523,9 +523,12 @@
   F77_FCN (dgeco, DGECO) (tmp_data, nr, nc, ipvt, rcond, z);
 
   volatile double rcond_plus_one = rcond + 1.0;
-  if (rcond_plus_one == 1.0 && ! force)
+
+  if (rcond_plus_one == 1.0)
+    info = -1;
+
+  if (info == -1 && ! force)
     {
-      info = -1;
       copy (tmp_data, data (), len);  // Restore matrix contents.
     }
   else