diff --git a/kernel/zarch/cscal.c b/kernel/zarch/cscal.c index cec7b3fb3..30c8acedf 100644 --- 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) {