diff options
| author | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-14 22:56:54 +0100 |
|---|---|---|
| committer | Julien Langou <julien.langou@ucdenver.edu> | 2016-12-14 22:56:54 +0100 |
| commit | 0c852a609795bd0b962f28b534052492e319afff (patch) | |
| tree | abf07e74b4f73117c0fa7ffeaccfad454d12cbd4 /TESTING | |
| parent | fe14830bcbf677139955fecbdaf86ce56f813506 (diff) | |
| download | lapack-0c852a609795bd0b962f28b534052492e319afff.tar.gz lapack-0c852a609795bd0b962f28b534052492e319afff.tar.bz2 lapack-0c852a609795bd0b962f28b534052492e319afff.zip | |
following up with 1c09a232b5d1314e2e13f36e081efe9f9406d17e
( Correct the test suite accordingly. )
Diffstat (limited to 'TESTING')
| -rw-r--r-- | TESTING/EIG/derred.f | 2 | ||||
| -rw-r--r-- | TESTING/EIG/serred.f | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/TESTING/EIG/derred.f b/TESTING/EIG/derred.f index 77592e56..f3faa7f5 100644 --- a/TESTING/EIG/derred.f +++ b/TESTING/EIG/derred.f @@ -415,7 +415,7 @@ $ 2, 2, A, 2, S, U, 1, VT, 2, $ W, 1, IW, INFO) CALL CHKXER( 'DGEJSV', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL DGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', $ 2, 2, A, 2, S, U, 2, VT, 1, $ W, 1, IW, INFO) diff --git a/TESTING/EIG/serred.f b/TESTING/EIG/serred.f index f4b63ea5..fc94ba47 100644 --- a/TESTING/EIG/serred.f +++ b/TESTING/EIG/serred.f @@ -415,7 +415,7 @@ $ 2, 2, A, 2, S, U, 1, VT, 2, $ W, 1, IW, INFO) CALL CHKXER( 'SGEJSV', INFOT, NOUT, LERR, OK ) - INFOT = 14 + INFOT = 15 CALL SGEJSV( 'G', 'U', 'V', 'R', 'N', 'N', $ 2, 2, A, 2, S, U, 2, VT, 1, $ W, 1, IW, INFO) |