From e9bfbdffaa46d0283537d9521c773486815b335b Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 22 Jul 2023 18:10:18 +0200 Subject: [PATCH] Fix actual arguments (Reference-LAPACK PR 885) --- lapack-netlib/TESTING/EIG/serrst.f | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/serrst.f b/lapack-netlib/TESTING/EIG/serrst.f index 8c9c0f306..b87fc42ef 100644 --- a/lapack-netlib/TESTING/EIG/serrst.f +++ b/lapack-netlib/TESTING/EIG/serrst.f @@ -161,13 +161,13 @@ * SRNAMT = 'SSYTD2' INFOT = 1 - CALL SSYTD2( '/', 0, A, 1, D, E, TAU, W, 1, INFO ) + CALL SSYTD2( '/', 0, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) INFOT = 2 - CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, W, 1, INFO ) + CALL SSYTD2( 'U', -1, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) INFOT = 4 - CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, W, 1, INFO ) + CALL SSYTD2( 'U', 2, A, 1, D, E, TAU, INFO ) CALL CHKXER( 'SSYTD2', INFOT, NOUT, LERR, OK ) NT = NT + 3 *