Fix potential spurious failure from uninitialized variable

martin-frbg · web-flow · commit 351d12b94e22 · 2019-11-15T00:20:36.000+01:00
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
`@@ -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 )`