From f280f4d669766b4e664beb9e77ac409cb25a3326 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sun, 25 May 2025 23:25:41 +0200
Subject: [PATCH] Update zscal.c

---
 kernel/zarch/zscal.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
index 635e1fef6..5111bc455 100644
--- a/kernel/zarch/zscal.c
+++ b/kernel/zarch/zscal.c
@@ -433,9 +433,13 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
 			x[i + 1] = NAN;
 		else
 			x[i + 1] = da_r * x[i + 1];
+	} else {
+		if (isnan(x[i]))
+			x[i + 1] = NAN;
+		else
+	        x[i + 1] = da_r * x[i + 1];
 	}
-        x[i + 1] = da_r * x[i + 1];
-        x[i] = temp0;
+	x[i] = temp0;
         i += 2;
         j++;