From bf73aa141b334ce2d870fe1b7ab340e0c7df5e8d Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 15 Nov 2019 00:19:24 +0100 Subject: [PATCH 1/2] Fix potential spurious failure from uninitialized variable --- ctest/c_cblat3.f | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ctest/c_cblat3.f b/ctest/c_cblat3.f index 96f190352..74293ce53 100644 --- a/ctest/c_cblat3.f +++ b/ctest/c_cblat3.f @@ -1503,6 +1503,8 @@ C $ ' .' ) NC = 0 RESET = .TRUE. ERRMAX = RZERO + RALS = RONE + RBETS = RONE * DO 100 IN = 1, NIDIM N = IDIM( IN ) From 351d12b94e2213b6d819fd1cb5c28f64f7deafc9 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 15 Nov 2019 00:20:36 +0100 Subject: [PATCH 2/2] 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 )