From 0dea52ecbf982b0ad2c5ae5dc2dea114dddb388a Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 31 Jul 2024 16:22:06 +0200
Subject: [PATCH] Update zscal.c

---
 kernel/zarch/zscal.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/kernel/zarch/zscal.c b/kernel/zarch/zscal.c
index ec38c25fc..905935c54 100644
--- a/kernel/zarch/zscal.c
+++ b/kernel/zarch/zscal.c
@@ -356,7 +356,10 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r, FLOAT da_i,
       while (j < n) {
 
         x[i] = res;
-        x[i + 1] = res;
+	if (!isinf(x[i + 1]))
+          x[i + 1] = res;
+	else
+	  x[i + 1] = NAN;
         i += 2;
         j++;