Fix wrong indexation in test (Reference-LAPACK PR755)
This commit is contained in:
parent
19fd2d7f00
commit
0d26f1a4c7
|
@ -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,
|
||||
|
|
Loading…
Reference in New Issue