Merge pull request #2308 from martin-frbg/ctestfix

martin-frbg · web-flow · commit 92315173d5e4 · 2019-11-15T08:33:17.000+01:00
Fix potential issue in the c/z blas3 ctests
diff --git a/ctest/c_cblat3.f b/ctest/c_cblat3.f
@@ -1503,6 +1503,8 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )
diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f
@@ -1504,6 +1504,8 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
       NC = 0
       RESET = .TRUE.
       ERRMAX = RZERO
+      RALS = RONE
+      RBETS = RONE
 *
       DO 100 IN = 1, NIDIM
          N = IDIM( IN )

Original file line number	Diff line number	Diff line change
`@@ -1503,6 +1503,8 @@ SUBROUTINE CCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`1503`	`1503`	`NC = 0`
`1504`	`1504`	`RESET = .TRUE.`
`1505`	`1505`	`ERRMAX = RZERO`
	`1506`	`+ RALS = RONE`
	`1507`	`+ RBETS = RONE`
`1506`	`1508`	`*`
`1507`	`1509`	`DO 100 IN = 1, NIDIM`
`1508`	`1510`	`N = IDIM( IN )`
Original file line number	Diff line number	Diff line change
`@@ -1504,6 +1504,8 @@ SUBROUTINE ZCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,`
`1504`	`1504`	`NC = 0`
`1505`	`1505`	`RESET = .TRUE.`
`1506`	`1506`	`ERRMAX = RZERO`
	`1507`	`+ RALS = RONE`
	`1508`	`+ RBETS = RONE`
`1507`	`1509`	`*`
`1508`	`1510`	`DO 100 IN = 1, NIDIM`
`1509`	`1511`	`N = IDIM( IN )`