From 351d12b94e2213b6d819fd1cb5c28f64f7deafc9 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 15 Nov 2019 00:20:36 +0100 Subject: [PATCH] Fix potential spurious failure from uninitialized variable --- ctest/c_zblat3.f | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ctest/c_zblat3.f b/ctest/c_zblat3.f index 5df834b2e..cc109d651 100644 --- a/ctest/c_zblat3.f +++ b/ctest/c_zblat3.f @@ -1504,6 +1504,8 @@ C $ ' .' ) NC = 0 RESET = .TRUE. ERRMAX = RZERO + RALS = RONE + RBETS = RONE * DO 100 IN = 1, NIDIM N = IDIM( IN )