Skip to content

Commit 881bf80

Browse files
langoulangou
authored
Merge pull request #1149 from grisuthedragon/fix-lapack-version-output-in-tests
Fix format string in LAPACK tests to match two-digit minor versions
2 parents 9af1f59 + fa6a30b commit 881bf80

File tree

14 files changed

+14
-14
lines changed

14 files changed

+14
-14
lines changed

‎TESTING/EIG/cchkee.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2524,7 +2524,7 @@ PROGRAM CCHKEE
25242524
9974 FORMAT( ' Tests of CHBTRD', / ' (reduction of a Hermitian band ',
25252525
$ 'matrix to real tridiagonal form)' )
25262526
9973 FORMAT( / 1X, 71( '-' ) )
2527-
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 )
2527+
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 )
25282528
9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ',
25292529
$ 'routines' )
25302530
9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' )

‎TESTING/EIG/dchkee.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2508,7 +2508,7 @@ PROGRAM DCHKEE
25082508
9974 FORMAT( ' Tests of DSBTRD', / ' (reduction of a symmetric band ',
25092509
$ 'matrix to tridiagonal form)' )
25102510
9973 FORMAT( / 1X, 71( '-' ) )
2511-
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 )
2511+
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 )
25122512
9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ',
25132513
$ 'routines' )
25142514
9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' )

‎TESTING/EIG/schkee.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2511,7 +2511,7 @@ PROGRAM SCHKEE
25112511
9974 FORMAT( ' Tests of SSBTRD', / ' (reduction of a symmetric band ',
25122512
$ 'matrix to tridiagonal form)' )
25132513
9973 FORMAT( / 1X, 71( '-' ) )
2514-
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 )
2514+
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 )
25152515
9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ',
25162516
$ 'routines' )
25172517
9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' )

‎TESTING/EIG/zchkee.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2522,7 +2522,7 @@ PROGRAM ZCHKEE
25222522
9974 FORMAT( ' Tests of ZHBTRD', / ' (reduction of a Hermitian band ',
25232523
$ 'matrix to real tridiagonal form)' )
25242524
9973 FORMAT( / 1X, 71( '-' ) )
2525-
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I1, '.', I1 )
2525+
9972 FORMAT( / ' LAPACK VERSION ', I1, '.', I2, '.', I1 )
25262526
9971 FORMAT( / ' Tests of the Generalized Linear Regression Model ',
25272527
$ 'routines' )
25282528
9970 FORMAT( / ' Tests of the Generalized QR and RQ routines' )

‎TESTING/LIN/cchkaa.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1245,7 +1245,7 @@ PROGRAM CCHKAA
12451245
9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=',
12461246
$ I6 )
12471247
9994 FORMAT( ' Tests of the COMPLEX LAPACK routines ',
1248-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
1248+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
12491249
$ / / ' The following parameter values will be used:' )
12501250
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
12511251
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

‎TESTING/LIN/cchkrfp.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -276,7 +276,7 @@ PROGRAM CCHKRFP
276276
9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=',
277277
$ I6 )
278278
9994 FORMAT( / ' Tests of the COMPLEX LAPACK RFP routines ',
279-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
279+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
280280
$ / / ' The following parameter values will be used:' )
281281
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
282282
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

‎TESTING/LIN/dchkaa.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1089,7 +1089,7 @@ PROGRAM DCHKAA
10891089
9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=',
10901090
$ I6 )
10911091
9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK routines ',
1092-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
1092+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
10931093
$ / / ' The following parameter values will be used:' )
10941094
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
10951095
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

‎TESTING/LIN/dchkab.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -350,7 +350,7 @@ PROGRAM DCHKAB
350350
$ I6 )
351351
9994 FORMAT( ' Tests of the DOUBLE PRECISION LAPACK DSGESV/DSPOSV',
352352
$ ' routines ',
353-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
353+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
354354
$ / / ' The following parameter values will be used:' )
355355
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
356356
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

‎TESTING/LIN/dchkrfp.f‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -275,7 +275,7 @@ PROGRAM DCHKRFP
275275
9995 FORMAT( ' !! Invalid input value: ', A4, '=', I6, '; must be <=',
276276
$ I6 )
277277
9994 FORMAT( / ' Tests of the DOUBLE PRECISION LAPACK RFP routines ',
278-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
278+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
279279
$ / / ' The following parameter values will be used:' )
280280
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
281281
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

‎TESTING/LIN/schkaa.F‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1083,7 +1083,7 @@ PROGRAM SCHKAA
10831083
9995 FORMAT( ' Invalid input value: ', A4, '=', I6, '; must be <=',
10841084
$ I6 )
10851085
9994 FORMAT( ' Tests of the REAL LAPACK routines ',
1086-
$ / ' LAPACK VERSION ', I1, '.', I1, '.', I1,
1086+
$ / ' LAPACK VERSION ', I1, '.', I2, '.', I1,
10871087
$ / / ' The following parameter values will be used:' )
10881088
9993 FORMAT( 4X, A4, ': ', 10I6, / 11X, 10I6 )
10891089
9992 FORMAT( / ' Routines pass computational tests if test ratio is ',

0 commit comments

Comments
 (0)