From 536200bc9e26069889d682143a374407c33b7adf Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 4 Jul 2024 17:47:19 +0200
Subject: [PATCH] fix handling of INF or NAN

---
 kernel/arm/scal.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/kernel/arm/scal.c b/kernel/arm/scal.c
index 4ef49e293..377a67f51 100644
--- a/kernel/arm/scal.c
+++ b/kernel/arm/scal.c
@@ -48,7 +48,11 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da, FLOAT *x, BLAS
 	{
 
 		if ( da == 0.0 )
+			if (!isnan(x[i] && !isinf(x[i])) {
 			x[i]=0.0;
+			} else {
+			x[i]=NAN;
+			}
 		else
 			x[i] = da * x[i] ;