From bb992395f03c25f706940c5b74f74d587feca022 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 31 Jul 2024 10:08:06 +0200 Subject: [PATCH] cannot use isnan here as need to check for INF as well --- kernel/zarch/zscal.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c index c471159c7..55a1e8525 100644 --- a/kernel/zarch/zscal.c +++ b/kernel/zarch/zscal.c @@ -339,7 +339,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i, zscal_kernel_8_zero(n1, x); else zscal_kernel_8(n1, da_r, da_i, x); - else if (da_i == 0 && !isnan(da_r)) + else if (da_i == 0 && da_r == da_r)) zscal_kernel_8_zero_i(n1, alpha, x); else zscal_kernel_8(n1, da_r, da_i, x);