From bf73aa141b334ce2d870fe1b7ab340e0c7df5e8d Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Fri, 15 Nov 2019 00:19:24 +0100 Subject: [PATCH] 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 96f1903..74293ce 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 ) -- 2.7.4