Fix #116

Thanks to @ashwinyes for bug report #116 in the test suite.  Weird bug. I wrote
these test codes for the RFP format in 2008 for LAPACK 3.2, and clearly the
code was not being tested as intended, thanks for the bug report. Fixed now.

diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f
index ca798e1..90f2f51 100644 (file)
--- a/TESTING/LIN/cdrvrf3.f
+++ b/TESTING/LIN/cdrvrf3.f
@@ -227,7 +227,7 @@
 *
                               IF ( IALPHA.EQ. 1) THEN
                                  ALPHA = ZERO
-                              ELSE IF ( IALPHA.EQ. 1) THEN
+                              ELSE IF ( IALPHA.EQ. 2) THEN
                                  ALPHA = ONE
                               ELSE
                                  ALPHA = CLARND( 4, ISEED )

diff --git a/TESTING/LIN/cdrvrf4.f b/TESTING/LIN/cdrvrf4.f
index 9f33b04..0aed70d 100644 (file)
--- a/TESTING/LIN/cdrvrf4.f
+++ b/TESTING/LIN/cdrvrf4.f
@@ -209,10 +209,10 @@
                         IF ( IALPHA.EQ. 1) THEN
                            ALPHA = ZERO
                            BETA = ZERO
-                        ELSE IF ( IALPHA.EQ. 1) THEN
+                        ELSE IF ( IALPHA.EQ. 2) THEN
                            ALPHA = ONE
                            BETA = ZERO
-                        ELSE IF ( IALPHA.EQ. 1) THEN
+                        ELSE IF ( IALPHA.EQ. 3) THEN
                            ALPHA = ZERO
                            BETA = ONE
                         ELSE

diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f
index c00aac1..c777d29 100644 (file)
--- a/TESTING/LIN/ddrvrf3.f
+++ b/TESTING/LIN/ddrvrf3.f
@@ -223,7 +223,7 @@
 *
                               IF ( IALPHA.EQ. 1) THEN
                                  ALPHA = ZERO
-                              ELSE IF ( IALPHA.EQ. 1) THEN
+                              ELSE IF ( IALPHA.EQ. 2) THEN
                                  ALPHA = ONE
                               ELSE
                                  ALPHA = DLARND( 2, ISEED )

diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f
index 33ac108..58ee4c8 100644 (file)
--- a/TESTING/LIN/sdrvrf3.f
+++ b/TESTING/LIN/sdrvrf3.f
@@ -223,7 +223,7 @@
 *
                               IF ( IALPHA.EQ. 1) THEN
                                  ALPHA = ZERO
-                              ELSE IF ( IALPHA.EQ. 1) THEN
+                              ELSE IF ( IALPHA.EQ. 2) THEN
                                  ALPHA = ONE
                               ELSE
                                  ALPHA = SLARND( 2, ISEED )

diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f
index e596b0b..a402110 100644 (file)
--- a/TESTING/LIN/zdrvrf3.f
+++ b/TESTING/LIN/zdrvrf3.f
@@ -227,7 +227,7 @@
 *
                               IF ( IALPHA.EQ. 1) THEN
                                  ALPHA = ZERO
-                              ELSE IF ( IALPHA.EQ. 1) THEN
+                              ELSE IF ( IALPHA.EQ. 2) THEN
                                  ALPHA = ONE
                               ELSE
                                  ALPHA = ZLARND( 4, ISEED )

diff --git a/TESTING/LIN/zdrvrf4.f b/TESTING/LIN/zdrvrf4.f
index 93e866b..0c2fe2d 100644 (file)
--- a/TESTING/LIN/zdrvrf4.f
+++ b/TESTING/LIN/zdrvrf4.f
@@ -209,10 +209,10 @@
                         IF ( IALPHA.EQ. 1) THEN
                            ALPHA = ZERO
                            BETA = ZERO
-                        ELSE IF ( IALPHA.EQ. 1) THEN
+                        ELSE IF ( IALPHA.EQ. 2) THEN
                            ALPHA = ONE
                            BETA = ZERO
-                        ELSE IF ( IALPHA.EQ. 1) THEN
+                        ELSE IF ( IALPHA.EQ. 3) THEN
                            ALPHA = ZERO
                            BETA = ONE
                         ELSE