From 0d26f1a4c7dc7e3829b3bde8f7d2e3a93f9fbbd3 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 23 Nov 2022 15:22:27 +0100 Subject: [PATCH] Fix wrong indexation in test (Reference-LAPACK PR755) --- lapack-netlib/TESTING/LIN/schktr.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f index 5aeb1ce88..33f07726e 100644 --- a/lapack-netlib/TESTING/LIN/schktr.f +++ b/lapack-netlib/TESTING/LIN/schktr.f @@ -559,7 +559,7 @@ $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) * CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, - $ SCALE3 ( 1 ), RWORK, ONE, B( N+1 ), LDA, + $ SCALE3 ( 1 ), RWORK, ONE, B( 1 ), LDA, $ X, LDA, WORK, RESULT( 10 ) ) CALL SSCAL( N, BIGNUM, X, 1 ) CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,