Fix wrong write

grisuthedragon · grisuthedragon · commit 785d734bf567 · 2024-06-24T14:04:02.000+02:00
diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
@@ -3938,7 +3938,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
   120 CONTINUE
       WRITE( NOUT, FMT = 9996 )SNAME
-      WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,
+      WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, N, K,
      $   ALPHA, LDA, LDB, BETA, LDC
 *
   130 CONTINUE

Original file line number	Diff line number	Diff line change
`@@ -3938,7 +3938,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`3938`	`3938`	`*`
`3939`	`3939`	`120 CONTINUE`
`3940`	`3940`	`WRITE( NOUT, FMT = 9996 )SNAME`
`3941`		`- WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, M, N, K,`
	`3941`	`+ WRITE( NOUT, FMT = 9995 )NC, SNAME, TRANSA, TRANSB, N, K,`
`3942`	`3942`	`$ ALPHA, LDA, LDB, BETA, LDC`
`3943`	`3943`	`*`
`3944`	`3944`	`130 CONTINUE`