Fix missing comma

grisuthedragon · grisuthedragon · commit 05d01da9f228 · 2024-06-24T14:04:02.000+02:00
diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
@@ -3846,7 +3846,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *                          Call the subroutine.
 *
                            IF( TRACE )
-     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO
+     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,
      $                        TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,
      $                        BETA, LDC
                            IF( REWI )
diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
@@ -3860,7 +3860,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *                          Call the subroutine.
 *
                            IF( TRACE )
-     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO
+     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,
      $                        TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,
      $                        BETA, LDC
                            IF( REWI )

Original file line number	Diff line number	Diff line change
`@@ -3846,7 +3846,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3846`	`3846`	`* Call the subroutine.`
`3847`	`3847`	`*`
`3848`	`3848`	`IF( TRACE )`
`3849`		`- $ WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO`
	`3849`	`+ $ WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,`
`3850`	`3850`	`$ TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,`
`3851`	`3851`	`$ BETA, LDC`
`3852`	`3852`	`IF( REWI )`
Original file line number	Diff line number	Diff line change
`@@ -3860,7 +3860,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3860`	`3860`	`* Call the subroutine.`
`3861`	`3861`	`*`
`3862`	`3862`	`IF( TRACE )`
`3863`		`- $ WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO`
	`3863`	`+ $ WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,`
`3864`	`3864`	`$ TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,`
`3865`	`3865`	`$ BETA, LDC`
`3866`	`3866`	`IF( REWI )`