fix wrong indexation in slatrs3 test

dklyuchinskiy · dklyuchinskiy · commit 7f9f67572a8e · 2022-11-17T19:06:00.000+07:00
diff --git a/TESTING/LIN/schktr.f b/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,`