From e6a6296d13860f85a6033a1ae458ac5c53f903c1 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Tue, 30 Jul 2024 15:40:27 +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 a07429caf..0b265d783 100644
--- a/kernel/zarch/cscal.c
+++ b/kernel/zarch/cscal.c
@@ -382,7 +382,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 (!isnan(x[i]))
+	if (x[i] == x[i])
           x[i] = temp0;
         i += 2;
         j++;