Fix potential spurious failure from uninitialized variable

martin-frbg · web-flow · commit bf73aa141b33 · 2019-11-15T00:19:24.000+01:00
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 )

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 )`