Fix potential spurious failure from uninitialized variable

2019-11-15 00:20:36 +01:00
parent bf73aa141b
commit 351d12b94e
1 changed files with 2 additions and 0 deletions
--- 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 )