diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2017-02-01 14:41:00 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2017-02-01 14:41:00 +0100 |
| commit | 94b58bc8d9813c67427268b39adb7573c44cdfed (patch) | |
| tree | 5b924890efe4b8cbac26ec17e1ac1f148cc4ee0c | |
| parent | d6129f22a4e2c6d101e816ba358c980a79b93bf8 (diff) | |
| download | lapack-94b58bc8d9813c67427268b39adb7573c44cdfed.tar.gz lapack-94b58bc8d9813c67427268b39adb7573c44cdfed.tar.bz2 lapack-94b58bc8d9813c67427268b39adb7573c44cdfed.zip | |
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.
| -rw-r--r-- | TESTING/LIN/cdrvrf3.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/cdrvrf4.f | 4 | ||||
| -rw-r--r-- | TESTING/LIN/ddrvrf3.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/sdrvrf3.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvrf3.f | 2 | ||||
| -rw-r--r-- | TESTING/LIN/zdrvrf4.f | 4 |
6 files changed, 8 insertions, 8 deletions
diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index ca798e19..90f2f514 100644 --- 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 9f33b04b..0aed70dd 100644 --- 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 c00aac1a..c777d29a 100644 --- 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 33ac1084..58ee4c87 100644 --- 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 e596b0b6..a4021101 100644 --- 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 93e866b0..0c2fe2d4 100644 --- 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 |