Skip to content

Commit cb81e00

Browse files
grisuthedragongrisuthedragon
committed
Adjust BLAS test for routine names with at most 7 characters
1 parent 81b3767 commit cb81e00

File tree

8 files changed

+232
-178
lines changed

8 files changed

+232
-178
lines changed

‎BLAS/TESTING/cblat3.f

Lines changed: 51 additions & 33 deletions
Original file line numberDiff line numberDiff line change
@@ -109,7 +109,7 @@ PROGRAM CBLAT3
109109
LOGICAL FATAL, LTESTT, REWI, SAME, SFATAL, TRACE,
110110
$ TSTERR
111111
CHARACTER*1 TRANSA, TRANSB
112-
CHARACTER*6 SNAMET
112+
CHARACTER*7 SNAMET
113113
CHARACTER*32 SNAPS, SUMMRY
114114
* .. Local Arrays ..
115115
COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
@@ -121,7 +121,7 @@ PROGRAM CBLAT3
121121
REAL G( NMAX )
122122
INTEGER IDIM( NIDMAX )
123123
LOGICAL LTEST( NSUBS )
124-
CHARACTER*6 SNAMES( NSUBS )
124+
CHARACTER*7 SNAMES( NSUBS )
125125
* .. External Functions ..
126126
REAL SDIFF
127127
LOGICAL LCE
@@ -134,7 +134,7 @@ PROGRAM CBLAT3
134134
* .. Scalars in Common ..
135135
INTEGER INFOT, NOUTC
136136
LOGICAL LERR, OK
137-
CHARACTER*6 SRNAMT
137+
CHARACTER*7 SRNAMT
138138
* .. Common blocks ..
139139
COMMON /INFOC/INFOT, NOUTC, OK, LERR
140140
COMMON /SRNAMC/SRNAMT
@@ -397,8 +397,8 @@ PROGRAM CBLAT3
397397
$ 'ERR = ', F12.3, '.', /' THIS MAY BE DUE TO FAULTS IN THE ',
398398
$ 'ARITHMETIC OR THE COMPILER.', /' ******* TESTS ABANDONED ',
399399
$ '*******' )
400-
9988 FORMAT( A6, L2 )
401-
9987 FORMAT( 1X, A6, ' WAS NOT TESTED' )
400+
9988 FORMAT( A7, L2 )
401+
9987 FORMAT( 1X, A7, ' WAS NOT TESTED' )
402402
9986 FORMAT( /' END OF TESTS' )
403403
9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
404404
9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
@@ -429,7 +429,7 @@ SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
429429
REAL EPS, THRESH
430430
INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
431431
LOGICAL FATAL, REWI, TRACE
432-
CHARACTER*6 SNAME
432+
CHARACTER*7 SNAME
433433
* .. Array Arguments ..
434434
COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
435435
$ AS( NMAX*NMAX ), B( NMAX, NMAX ),
@@ -714,7 +714,7 @@ SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
714714
REAL EPS, THRESH
715715
INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
716716
LOGICAL FATAL, REWI, TRACE
717-
CHARACTER*6 SNAME
717+
CHARACTER*7 SNAME
718718
* .. Array Arguments ..
719719
COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
720720
$ AS( NMAX*NMAX ), B( NMAX, NMAX ),
@@ -993,7 +993,7 @@ SUBROUTINE CCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
993993
REAL EPS, THRESH
994994
INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
995995
LOGICAL FATAL, REWI, TRACE
996-
CHARACTER*6 SNAME
996+
CHARACTER*7 SNAME
997997
* .. Array Arguments ..
998998
COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
999999
$ AS( NMAX*NMAX ), B( NMAX, NMAX ),
@@ -1303,7 +1303,7 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
13031303
REAL EPS, THRESH
13041304
INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
13051305
LOGICAL FATAL, REWI, TRACE
1306-
CHARACTER*6 SNAME
1306+
CHARACTER*7 SNAME
13071307
* .. Array Arguments ..
13081308
COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
13091309
$ AS( NMAX*NMAX ), B( NMAX, NMAX ),
@@ -1635,7 +1635,7 @@ SUBROUTINE CCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
16351635
REAL EPS, THRESH
16361636
INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
16371637
LOGICAL FATAL, REWI, TRACE
1638-
CHARACTER*6 SNAME
1638+
CHARACTER*7 SNAME
16391639
* .. Array Arguments ..
16401640
COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
16411641
$ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
@@ -2005,7 +2005,7 @@ SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
20052005
*
20062006
* .. Scalar Arguments ..
20072007
INTEGER ISNUM, NOUT
2008-
CHARACTER*6 SRNAMT
2008+
CHARACTER*7 SRNAMT
20092009
* .. Scalars in Common ..
20102010
INTEGER INFOT, NOUTC
20112011
LOGICAL LERR, OK
@@ -2969,58 +2969,76 @@ SUBROUTINE CCHKE( ISNUM, SRNAMT, NOUT )
29692969
CALL CGEMMTR( 'U', 'T', '/', 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
29702970
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29712971
INFOT = 4
2972-
CALL CGEMMTR( 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2972+
CALL CGEMMTR( 'U', 'N', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2973+
$ 1 )
29732974
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29742975
INFOT = 4
2975-
CALL CGEMMTR( 'U', 'N', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2976+
CALL CGEMMTR( 'U', 'N', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2977+
$ 1 )
29762978
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29772979
INFOT = 4
2978-
CALL CGEMMTR( 'U', 'N', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2980+
CALL CGEMMTR( 'U', 'N', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2981+
$ 1 )
29792982
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29802983
INFOT = 4
2981-
CALL CGEMMTR( 'U', 'C', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2984+
CALL CGEMMTR( 'U', 'C', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2985+
$ 1 )
29822986
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29832987
INFOT = 4
2984-
CALL CGEMMTR( 'U', 'C', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2988+
CALL CGEMMTR( 'U', 'C', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2989+
$ 1 )
29852990
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29862991
INFOT = 4
2987-
CALL CGEMMTR( 'U', 'C', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2992+
CALL CGEMMTR( 'U', 'C', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2993+
$ 1 )
29882994
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29892995
INFOT = 4
2990-
CALL CGEMMTR( 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
2996+
CALL CGEMMTR( 'U', 'T', 'N', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
2997+
$ 1 )
29912998
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29922999
INFOT = 4
2993-
CALL CGEMMTR( 'U', 'T', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
3000+
CALL CGEMMTR( 'U', 'T', 'C', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
3001+
$ 1 )
29943002
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29953003
INFOT = 4
2996-
CALL CGEMMTR( 'U', 'T', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C, 1 )
3004+
CALL CGEMMTR( 'U', 'T', 'T', -1, 0, ALPHA, A, 1, B, 1, BETA, C,
3005+
$ 1 )
29973006
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
29983007
INFOT = 5
2999-
CALL CGEMMTR( 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3008+
CALL CGEMMTR( 'U', 'N', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3009+
$ 1 )
30003010
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30013011
INFOT = 5
3002-
CALL CGEMMTR( 'U', 'N', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3012+
CALL CGEMMTR( 'U', 'N', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3013+
$ 1 )
30033014
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30043015
INFOT = 5
3005-
CALL CGEMMTR( 'U', 'N', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3016+
CALL CGEMMTR( 'U', 'N', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3017+
$ 1 )
30063018
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30073019
INFOT = 5
3008-
CALL CGEMMTR( 'U', 'C', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3020+
CALL CGEMMTR( 'U', 'C', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3021+
$ 1 )
30093022
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30103023
INFOT = 5
3011-
CALL CGEMMTR( 'U', 'C', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3024+
CALL CGEMMTR( 'U', 'C', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3025+
$ 1 )
30123026
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30133027
INFOT = 5
3014-
CALL CGEMMTR( 'U', 'C', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3028+
CALL CGEMMTR( 'U', 'C', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3029+
$ 1 )
30153030
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30163031
INFOT = 5
3017-
CALL CGEMMTR( 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3032+
CALL CGEMMTR( 'U', 'T', 'N', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3033+
$ 1 )
30183034
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30193035
INFOT = 5
3020-
CALL CGEMMTR( 'U', 'T', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3036+
CALL CGEMMTR( 'U', 'T', 'C', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3037+
$ 1 )
30213038
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30223039
INFOT = 5
3023-
CALL CGEMMTR( 'U', 'T', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C, 1 )
3040+
CALL CGEMMTR( 'U', 'T', 'T', 0, -1, ALPHA, A, 1, B, 1, BETA, C,
3041+
$ 1 )
30243042
CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
30253043

30263044
INFOT = 8
@@ -3601,7 +3619,7 @@ SUBROUTINE CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
36013619
* .. Scalar Arguments ..
36023620
INTEGER INFOT, NOUT
36033621
LOGICAL LERR, OK
3604-
CHARACTER*6 SRNAMT
3622+
CHARACTER*7 SRNAMT
36053623
* .. Executable Statements ..
36063624
IF( .NOT.LERR )THEN
36073625
WRITE( NOUT, FMT = 9999 )INFOT, SRNAMT
@@ -3637,11 +3655,11 @@ SUBROUTINE XERBLA( SRNAME, INFO )
36373655
*
36383656
* .. Scalar Arguments ..
36393657
INTEGER INFO
3640-
CHARACTER*6 SRNAME
3658+
CHARACTER*(*) SRNAME
36413659
* .. Scalars in Common ..
36423660
INTEGER INFOT, NOUT
36433661
LOGICAL LERR, OK
3644-
CHARACTER*6 SRNAMT
3662+
CHARACTER*7 SRNAMT
36453663
* .. Common blocks ..
36463664
COMMON /INFOC/INFOT, NOUT, OK, LERR
36473665
COMMON /SRNAMC/SRNAMT
@@ -3695,7 +3713,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
36953713
REAL EPS, THRESH
36963714
INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
36973715
LOGICAL FATAL, REWI, TRACE
3698-
CHARACTER*6 SNAME
3716+
CHARACTER*7 SNAME
36993717
* .. Array Arguments ..
37003718
COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
37013719
$ AS( NMAX*NMAX ), B( NMAX, NMAX ),

‎BLAS/TESTING/cblat3.in

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -12,13 +12,13 @@ T LOGICAL FLAG, T TO TEST ERROR EXITS.
1212
(0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
1313
3 NUMBER OF VALUES OF BETA
1414
(0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
15-
CGEMM T PUT F FOR NO TEST. SAME COLUMNS.
16-
CHEMM T PUT F FOR NO TEST. SAME COLUMNS.
17-
CSYMM T PUT F FOR NO TEST. SAME COLUMNS.
18-
CTRMM T PUT F FOR NO TEST. SAME COLUMNS.
19-
CTRSM T PUT F FOR NO TEST. SAME COLUMNS.
20-
CHERK T PUT F FOR NO TEST. SAME COLUMNS.
21-
CSYRK T PUT F FOR NO TEST. SAME COLUMNS.
22-
CHER2K T PUT F FOR NO TEST. SAME COLUMNS.
23-
CSYR2K T PUT F FOR NO TEST. SAME COLUMNS.
15+
CGEMM T PUT F FOR NO TEST. SAME COLUMNS.
16+
CHEMM T PUT F FOR NO TEST. SAME COLUMNS.
17+
CSYMM T PUT F FOR NO TEST. SAME COLUMNS.
18+
CTRMM T PUT F FOR NO TEST. SAME COLUMNS.
19+
CTRSM T PUT F FOR NO TEST. SAME COLUMNS.
20+
CHERK T PUT F FOR NO TEST. SAME COLUMNS.
21+
CSYRK T PUT F FOR NO TEST. SAME COLUMNS.
22+
CHER2K T PUT F FOR NO TEST. SAME COLUMNS.
23+
CSYR2K T PUT F FOR NO TEST. SAME COLUMNS.
2424
CGEMMTR T PUT F FOR NO TEST. SAME COLUMNS.

0 commit comments

Comments
 (0)