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 /TESTING | |
| 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.
Diffstat (limited to 'TESTING')
| -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 |