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

Fix actual arguments (Reference-LAPACK PR 885)

This commit is contained in:
Martin Kroeker 2023-07-22 19:56:45 +02:00 committed by GitHub
parent 1f24c03acd
commit 11ee776e5a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 19 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lapack-netlib/TESTING/LIN/serrtr.f
View File

@ -71,7 +71,7 @@
* .. Local Scalars .. * .. Local Scalars ..
CHARACTER*2 C2 CHARACTER*2 C2
INTEGER INFO INTEGER INFO
REAL RCOND, SCALE REAL RCOND, SCALE, SCALES(0)
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
INTEGER IW( NMAX ) INTEGER IW( NMAX )
@ -250,40 +250,40 @@
* *
SRNAMT = 'SLATRS3' SRNAMT = 'SLATRS3'
INFOT = 1 INFOT = 1
CALL SLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 2 INFOT = 2
CALL SLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 3 INFOT = 3
CALL SLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 4 INFOT = 4
CALL SLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 5 INFOT = 5
CALL SLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 6 INFOT = 6
CALL SLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 8 INFOT = 8
CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 10 INFOT = 10
CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALES,
$ W( 2 ), 1, INFO ) $ W, W( 2 ), 1, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
INFOT = 14 INFOT = 14
CALL SLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALE, W, CALL SLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALES,
$ W( 2 ), 0, INFO ) $ W, W( 2 ), 0, INFO )
CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK )
* *
ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN