Update cscal.c

martin-frbg · web-flow · commit 4f9be6d84320 · 2025-05-25T18:26:46.000+02:00
diff --git a/kernel/zarch/cscal.c b/kernel/zarch/cscal.c
@@ -308,7 +308,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 
     } else {
 
-      if (da_i == 0.0) {
+      if (da_i == 0.0 && dummy2) {
         BLASLONG n1 = n & -2;
 
         while (j < n1) {
