Merge pull request #2308 from martin-frbg/ctestfix

Fix potential issue in the c/z blas3 ctests
2019-11-15 08:33:17 +01:00 · 2019-11-15 08:33:17 +01:00 · 92315173d5
parent 71e96163db 351d12b94e
commit 92315173d5
2 changed files with 4 additions and 0 deletions
--- 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 )
--- 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 )