Fix test (Reference-LAPACK PR764)

martin-frbg · web-flow · commit b0393ea4e17d · 2022-11-23T15:27:46.000+01:00
diff --git a/lapack-netlib/TESTING/LIN/schktr.f b/lapack-netlib/TESTING/LIN/schktr.f
@@ -555,11 +555,11 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,
 *
                   IF( INFO.NE.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 )
 *
                   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 ) )
                   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
`@@ -555,11 +555,11 @@ SUBROUTINE SCHKTR( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL,`
`555`	`555`	`*`
`556`	`556`	`IF( INFO.NE.0 )`
`557`	`557`	`$ CALL ALAERH( PATH, 'SLATRS3', INFO, 0,`
`558`		`- $ UPLO // TRANS // DIAG // 'Y', N, N,`
	`558`	`+ $ UPLO // TRANS // DIAG // 'N', N, N,`
`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( 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,`