Update zscal.c

OpenMathLib · Jul 31, 2024 · 9407fd7 · 9407fd7
1 parent 2295a7b
commit 9407fd7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
@@ -381,7 +381,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
         	x[i + 1] = da_i * x[i];
 	else
 		x[i + 1] = NAN;
-	if (isfinite(x[i]))
+	if (x[i]==x[i])
           x[i] = temp0;
         i += 2;
         j++;