Skip to content

Commit 8856fad

Browse files
langoulangou
authored
Merge pull request Reference-LAPACK#1179 from ACSimon33/fix-asan-errors
Fix ASAN errors and FORMAT specifiers
2 parents 1ff794a + 3bd8b31 commit 8856fad

File tree

8 files changed

+215
-210
lines changed

8 files changed

+215
-210
lines changed

‎BLAS/TESTING/dblat2.f‎

Lines changed: 48 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -416,8 +416,8 @@ PROGRAM DBLAT2
416416
9988 FORMAT( ' FOR BETA ', 7F6.1 )
417417
9987 FORMAT( ' AMEND DATA FILE OR INCREASE ARRAY SIZES IN PROGRAM',
418418
$ /' ******* TESTS ABANDONED *******' )
419-
9986 FORMAT( ' SUBPROGRAM NAME ', A10, ' NOT RECOGNIZED', /' ******* T',
420-
$ 'ESTS ABANDONED *******' )
419+
9986 FORMAT( ' SUBPROGRAM NAME ', A10, ' NOT RECOGNIZED', /' ******* ',
420+
$ 'TESTS ABANDONED *******' )
421421
9985 FORMAT( ' ERROR IN DMVCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
422422
$ 'ATED WRONGLY.', /' DMVCH WAS CALLED WITH TRANS = ', A1,
423423
$ ' AND RETURNED SAME = ', L1, ' AND ERR = ', F12.3, '.', /
@@ -783,12 +783,12 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
783783
140 CONTINUE
784784
RETURN
785785
*
786-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
787-
$ 'S)' )
786+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
787+
$ 'LS)' )
788788
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
789789
$ 'ANGED INCORRECTLY *******' )
790-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
791-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
790+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
791+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
792792
$ ' - SUSPECT *******' )
793793
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
794794
9995 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', 4( I3, ',' ), F4.1,
@@ -1135,21 +1135,22 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
11351135
130 CONTINUE
11361136
RETURN
11371137
*
1138-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1139-
$ 'S)' )
1138+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1139+
$ 'LS)' )
11401140
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
11411141
$ 'ANGED INCORRECTLY *******' )
1142-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1143-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1142+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1143+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
11441144
$ ' - SUSPECT *******' )
11451145
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
1146-
9995 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', AP',
1147-
$ ', X,', I2, ',', F4.1, ', Y,', I2, ') .' )
1146+
9995 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', A',
1147+
$ 'P, X,', I2, ',', F4.1, ', Y,', I2, ') .' )
11481148
9994 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', 2( I3, ',' ), F4.1,
11491149
$ ', A,', I3, ', X,', I2, ',', F4.1, ', Y,', I2,
11501150
$ ') .' )
1151-
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', A,',
1152-
$ I3, ', X,', I2, ',', F4.1, ', Y,', I2, ') .' )
1151+
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1,
1152+
$ ', A,', I3, ', X,', I2, ',', F4.1, ', Y,', I2,
1153+
$ ') .' )
11531154
9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
11541155
$ '******' )
11551156
*
@@ -1494,18 +1495,18 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
14941495
130 CONTINUE
14951496
RETURN
14961497
*
1497-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1498-
$ 'S)' )
1498+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1499+
$ 'LS)' )
14991500
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
15001501
$ 'ANGED INCORRECTLY *******' )
1501-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1502-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1502+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1503+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
15031504
$ ' - SUSPECT *******' )
15041505
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
1505-
9995 FORMAT( 1X, I6, ': ', A10, '(', 3( '''', A1, ''',' ), I3, ', AP, ',
1506-
$ 'X,', I2, ') .' )
1507-
9994 FORMAT( 1X, I6, ': ', A10, '(', 3( '''', A1, ''',' ), 2( I3, ',' ),
1508-
$ ' A,', I3, ', X,', I2, ') .' )
1506+
9995 FORMAT( 1X, I6, ': ', A10, '(', 3( '''', A1, ''',' ), I3, ', AP,',
1507+
$ ' X,', I2, ') .' )
1508+
9994 FORMAT( 1X, I6, ': ', A10, '(', 3( '''', A1, ''',' ),
1509+
$ 2( I3, ',' ), ' A,', I3, ', X,', I2, ') .' )
15091510
9993 FORMAT( 1X, I6, ': ', A10, '(', 3( '''', A1, ''',' ), I3, ', A,',
15101511
$ I3, ', X,', I2, ') .' )
15111512
9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
@@ -1759,12 +1760,12 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
17591760
150 CONTINUE
17601761
RETURN
17611762
*
1762-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1763-
$ 'S)' )
1763+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1764+
$ 'LS)' )
17641765
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
17651766
$ 'ANGED INCORRECTLY *******' )
1766-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1767-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1767+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1768+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
17681769
$ ' - SUSPECT *******' )
17691770
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
17701771
9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
@@ -2036,19 +2037,19 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
20362037
130 CONTINUE
20372038
RETURN
20382039
*
2039-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2040-
$ 'S)' )
2040+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
2041+
$ 'LS)' )
20412042
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
20422043
$ 'ANGED INCORRECTLY *******' )
2043-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2044-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
2044+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
2045+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
20452046
$ ' - SUSPECT *******' )
20462047
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
20472048
9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
2048-
9994 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2049-
$ I2, ', AP) .' )
2050-
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2051-
$ I2, ', A,', I3, ') .' )
2049+
9994 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1,
2050+
$ ', X,', I2, ', AP) .' )
2051+
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1,
2052+
$ ', X,', I2, ', A,', I3, ') .' )
20522053
9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
20532054
$ '******' )
20542055
*
@@ -2376,19 +2377,20 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
23762377
170 CONTINUE
23772378
RETURN
23782379
*
2379-
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2380-
$ 'S)' )
2380+
9999 FORMAT( ' ', A10, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
2381+
$ 'LS)' )
23812382
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
23822383
$ 'ANGED INCORRECTLY *******' )
2383-
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
2384-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
2384+
9997 FORMAT( ' ', A10, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
2385+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
23852386
$ ' - SUSPECT *******' )
23862387
9996 FORMAT( ' ******* ', A10, ' FAILED ON CALL NUMBER:' )
23872388
9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
2388-
9994 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2389-
$ I2, ', Y,', I2, ', AP) .' )
2390-
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1, ', X,',
2391-
$ I2, ', Y,', I2, ', A,', I3, ') .' )
2389+
9994 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1,
2390+
$ ', X,', I2, ', Y,', I2, ', AP) .' )
2391+
9993 FORMAT( 1X, I6, ': ', A10, '(''', A1, ''',', I3, ',', F4.1,
2392+
$ ', X,', I2, ', Y,', I2, ', A,', I3,
2393+
$ ') .' )
23922394
9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
23932395
$ '******' )
23942396
*
@@ -2748,8 +2750,8 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
27482750
RETURN
27492751
*
27502752
9999 FORMAT( ' ', A10, ' PASSED THE TESTS OF ERROR-EXITS' )
2751-
9998 FORMAT( ' ******* ', A10, ' FAILED THE TESTS OF ERROR-EXITS *****',
2752-
$ '**' )
2753+
9998 FORMAT( ' ******* ', A10, ' FAILED THE TESTS OF ERROR-EXITS ****',
2754+
$ '***' )
27532755
*
27542756
* End of DCHKE
27552757
*
@@ -3328,8 +3330,8 @@ SUBROUTINE XERBLA( SRNAME, INFO )
33283330
*
33293331
9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6, ' INSTEAD',
33303332
$ ' OF ', I2, ' *******' )
3331-
9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A10, ' INSTE',
3332-
$ 'AD OF ', A10, ' *******' )
3333+
9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A10, ' INST',
3334+
$ 'EAD OF ', A10, ' *******' )
33333335
9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
33343336
$ ' *******' )
33353337
*

‎BLAS/TESTING/dblat3.f‎

Lines changed: 44 additions & 43 deletions
Original file line numberDiff line numberDiff line change
@@ -386,8 +386,8 @@ PROGRAM DBLAT3
386386
9992 FORMAT( ' FOR BETA ', 7F6.1 )
387387
9991 FORMAT( ' AMEND DATA FILE OR INCREASE ARRAY SIZES IN PROGRAM',
388388
$ /' ******* TESTS ABANDONED *******' )
389-
9990 FORMAT( ' SUBPROGRAM NAME ', A11, ' NOT RECOGNIZED', /' ******* T',
390-
$ 'ESTS ABANDONED *******' )
389+
9990 FORMAT( ' SUBPROGRAM NAME ', A11, ' NOT RECOGNIZED', /' ******* ',
390+
$ 'TESTS ABANDONED *******' )
391391
9989 FORMAT( ' ERROR IN DMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
392392
$ 'ATED WRONGLY.', /' DMMCH WAS CALLED WITH TRANSA = ', A1,
393393
$ ' AND TRANSB = ', A1, /' AND RETURNED SAME = ', L1, ' AND ',
@@ -668,12 +668,12 @@ SUBROUTINE DCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
668668
130 CONTINUE
669669
RETURN
670670
*
671-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
672-
$ 'S)' )
671+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
672+
$ 'LS)' )
673673
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
674674
$ 'ANGED INCORRECTLY *******' )
675-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
676-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
675+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
676+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
677677
$ ' - SUSPECT *******' )
678678
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
679679
9995 FORMAT( 1X, I6, ': ', A11, '(''', A1, ''',''', A1, ''',',
@@ -950,17 +950,17 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
950950
120 CONTINUE
951951
RETURN
952952
*
953-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
954-
$ 'S)' )
953+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
954+
$ 'LS)' )
955955
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
956956
$ 'ANGED INCORRECTLY *******' )
957-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
958-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
957+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
958+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
959959
$ ' - SUSPECT *******' )
960960
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
961-
9995 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' ), 2( I3, ',' ),
962-
$ F4.1, ', A,', I3, ', B,', I3, ',', F4.1, ', C,', I3, ') ',
963-
$ ' .' )
961+
9995 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' ),
962+
$ 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', F4.1,
963+
$ ', C,', I3, ') ', ' .' )
964964
9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
965965
$ '******' )
966966
*
@@ -1257,16 +1257,16 @@ SUBROUTINE DCHK3( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
12571257
160 CONTINUE
12581258
RETURN
12591259
*
1260-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1261-
$ 'S)' )
1260+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1261+
$ 'LS)' )
12621262
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
12631263
$ 'ANGED INCORRECTLY *******' )
1264-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1265-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1264+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1265+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
12661266
$ ' - SUSPECT *******' )
12671267
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
1268-
9995 FORMAT( 1X, I6, ': ', A11, '(', 4( '''', A1, ''',' ), 2( I3, ',' ),
1269-
$ F4.1, ', A,', I3, ', B,', I3, ') .' )
1268+
9995 FORMAT( 1X, I6, ': ', A11, '(', 4( '''', A1, ''',' ),
1269+
$ 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ') .' )
12701270
9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
12711271
$ '******' )
12721272
*
@@ -1532,17 +1532,18 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
15321532
130 CONTINUE
15331533
RETURN
15341534
*
1535-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1536-
$ 'S)' )
1535+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1536+
$ 'LS)' )
15371537
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
15381538
$ 'ANGED INCORRECTLY *******' )
1539-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1540-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1539+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1540+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
15411541
$ ' - SUSPECT *******' )
15421542
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
15431543
9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
1544-
9994 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' ), 2( I3, ',' ),
1545-
$ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ') .' )
1544+
9994 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' ),
1545+
$ 2( I3, ',' ), F4.1, ', A,', I3, ',', F4.1, ', C,', I3,
1546+
$ ') .' )
15461547
9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
15471548
$ '******' )
15481549
*
@@ -1885,18 +1886,18 @@ SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
18851886
160 CONTINUE
18861887
RETURN
18871888
*
1888-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1889-
$ 'S)' )
1889+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
1890+
$ 'LS)' )
18901891
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
18911892
$ 'ANGED INCORRECTLY *******' )
1892-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
1893-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
1893+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
1894+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
18941895
$ ' - SUSPECT *******' )
18951896
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
18961897
9995 FORMAT( ' THESE ARE THE RESULTS FOR COLUMN ', I3 )
1897-
9994 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' ), 2( I3, ',' ),
1898-
$ F4.1, ', A,', I3, ', B,', I3, ',', F4.1, ', C,', I3, ') ',
1899-
$ ' .' )
1898+
9994 FORMAT( 1X, I6, ': ', A11, '(', 2( '''', A1, ''',' )
1899+
$ , 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', F4.1,
1900+
$ ', C,', I3, ') ', ' .' )
19001901
9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
19011902
$ '******' )
19021903
*
@@ -2666,8 +2667,8 @@ SUBROUTINE DCHKE( ISNUM, SRNAMT, NOUT )
26662667
RETURN
26672668
*
26682669
9999 FORMAT( ' ', A11, ' PASSED THE TESTS OF ERROR-EXITS' )
2669-
9998 FORMAT( ' ******* ', A11, ' FAILED THE TESTS OF ERROR-EXITS *****',
2670-
$ '**' )
2670+
9998 FORMAT( ' ******* ', A11, ' FAILED THE TESTS OF ERROR-EXITS ****',
2671+
$ '***' )
26712672
*
26722673
* End of DCHKE
26732674
*
@@ -3165,8 +3166,8 @@ SUBROUTINE XERBLA( SRNAME, INFO )
31653166
*
31663167
9999 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6, ' INSTEAD',
31673168
$ ' OF ', I2, ' *******' )
3168-
9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A11, ' INSTE',
3169-
$ 'AD OF ', A11, ' *******' )
3169+
9998 FORMAT( ' ******* XERBLA WAS CALLED WITH SRNAME = ', A11, ' INST',
3170+
$ 'EAD OF ', A11, ' *******' )
31703171
9997 FORMAT( ' ******* XERBLA WAS CALLED WITH INFO = ', I6,
31713172
$ ' *******' )
31723173
*
@@ -3442,17 +3443,17 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
34423443
130 CONTINUE
34433444
RETURN
34443445
*
3445-
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
3446-
$ 'S)' )
3446+
9999 FORMAT( ' ', A11, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CAL',
3447+
$ 'LS)' )
34473448
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
34483449
$ 'ANGED INCORRECTLY *******' )
3449-
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' C',
3450-
$ 'ALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
3450+
9997 FORMAT( ' ', A11, ' COMPLETED THE COMPUTATIONAL TESTS (', I6, ' ',
3451+
$ 'CALLS)', /' ******* BUT WITH MAXIMUM TEST RATIO', F8.2,
34513452
$ ' - SUSPECT *******' )
34523453
9996 FORMAT( ' ******* ', A11, ' FAILED ON CALL NUMBER:' )
3453-
9995 FORMAT( 1X, I6, ': ', A11, '(''',A1, ''',''',A1, ''',''', A1,''',',
3454-
$ 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',', F4.1, ', ',
3455-
$ 'C,', I3, ').' )
3454+
9995 FORMAT( 1X, I6, ': ', A11, '(''', A1, ''',''', A1, ''',''', A1,
3455+
$ ''',', 2( I3, ',' ), F4.1, ', A,', I3, ', B,', I3, ',',
3456+
$ F4.1, ', ', 'C,', I3, ').' )
34563457
9994 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
34573458
$ '******' )
34583459
*

0 commit comments

Comments
 (0)