From 0c852a609795bd0b962f28b534052492e319afff Mon Sep 17 00:00:00 2001 From: Julien Langou Date: Wed, 14 Dec 2016 22:56:54 +0100 Subject: [PATCH] following up with 1c09a232b5d1314e2e13f36e081efe9f9406d17e ( Correct the test suite accordingly. ) --- TESTING/EIG/derred.f | 2 +- 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 77592e5..f3faa7f 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 f4b63ea..fc94ba4 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) -- 2.7.4