From 2a175404697ce5876341549ec41776bfcec1bbd4 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 24 May 2025 22:46:39 +0200 Subject: [PATCH] Update cscal.c --- kernel/zarch/cscal.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/zarch/cscal.c b/kernel/zarch/cscal.c index 887ce215f..5082e8fd7 100644 --- a/kernel/zarch/cscal.c +++ b/kernel/zarch/cscal.c @@ -339,7 +339,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, cscal_kernel_16_zero(n1, x); else cscal_kernel_16_zero_r(n1, alpha, x); - else if (da_i == 0) + else if (da_i == 0 && !isnan(da_r)) cscal_kernel_16_zero_i(n1, alpha, x); else cscal_kernel_16(n1, da_r, da_i, x);