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/LIN/sdrvrf3.f | |
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/LIN/sdrvrf3.f')
-rw-r--r-- | TESTING/LIN/sdrvrf3.f | 2 |
1 files changed, 1 insertions, 1 deletions
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 ) |