Fix wrong indexation in test (Reference-LAPACK PR755)

martin-frbg · web-flow · commit 0d26f1a4c7dc · 2022-11-23T15:22:27.000+01:00
diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f
@@ -559,7 +559,7 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
      $                            -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,

Original file line number	Diff line number	Diff line change
`@@ -559,7 +559,7 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,`
`559`	`559`	`$ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )`
`560`	`560`	`*`
`561`	`561`	`CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,`
`562`		`- $ SCALE3 ( 1 ), RWORK, ONE, B( N+1 ), LDA,`
	`562`	`+ $ SCALE3 ( 1 ), RWORK, ONE, B( 1 ), LDA,`
`563`	`563`	`$ X, LDA, WORK, RESULT( 10 ) )`
`564`	`564`	`CALL SSCAL( N, BIGNUM, X, 1 )`
`565`	`565`	`CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,`