floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix test (Reference-LAPACK PR764)

This commit is contained in:
Martin Kroeker 2022-11-23 15:27:46 +01:00 committed by GitHub
parent 0d26f1a4c7
commit b0393ea4e1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/TESTING/LIN/schktr.f
View File

@ -555,11 +555,11 @@
* *
IF( INFO.NE.0 ) IF( INFO.NE.0 )
$ CALL ALAERH( PATH, 'SLATRS3', INFO, 0, $ CALL ALAERH( PATH, 'SLATRS3', INFO, 0,
$ UPLO // TRANS // DIAG // 'Y', N, N, $ UPLO // TRANS // DIAG // 'N', N, N,
$ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT ) $ -1, -1, -1, IMAT, NFAIL, NERRS, NOUT )
* *
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,
$ SCALE3 ( 1 ), RWORK, ONE, B( 1 ), LDA, $ SCALE3( 1 ), RWORK, ONE, B( 1 ), LDA,
$ X, LDA, WORK, RESULT( 10 ) ) $ X, LDA, WORK, RESULT( 10 ) )
CALL SSCAL( N, BIGNUM, X, 1 ) CALL SSCAL( N, BIGNUM, X, 1 )
CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA, CALL STRT03( UPLO, TRANS, DIAG, N, 1, A, LDA,