Ed Anderson Bug Fix - Jan 26 2015

In TESTING/LIN/schkrq.f and schklq.f (only those, not the other precisions), the loop to look for test failures runs from 1 to NTESTS, it should be 1 to NT.

diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f
index 77a94bf55d1ea0cb4d474a3f515ea19be336c399..5dadb95308202379d90b860aa0dfcdec4f36f8ae 100644 (file)
--- a/TESTING/LIN/schklq.f
+++ b/TESTING/LIN/schklq.f
@@ -411,7 +411,7 @@
 *                    Print information about the tests that did not
 *                    pass the threshold.
 *
-                     DO 20 I = 1, NTESTS
+                     DO 20 I = 1, NT
                         IF( RESULT( I ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALAHD( NOUT, PATH )

diff --git a/TESTING/LIN/schkrq.f b/TESTING/LIN/schkrq.f
index 0131a7b5635a9c5015304cc51a700c2401a92e04..f2380446bd0741f5ac152f033d7121db8c10fa8d 100644 (file)
--- a/TESTING/LIN/schkrq.f
+++ b/TESTING/LIN/schkrq.f
@@ -416,7 +416,7 @@
 *                    Print information about the tests that did not
 *                    pass the threshold.
 *
-                     DO 20 I = 1, NTESTS
+                     DO 20 I = 1, NT
                         IF( RESULT( I ).GE.THRESH ) THEN
                            IF( NFAIL.EQ.0 .AND. NERRS.EQ.0 )
      $                        CALL ALAHD( NOUT, PATH )