Handle NAN and INF

martin-frbg · Jan 15, 2024 · 0d2e486 · 0d2e486
1 parent a782103
commit 0d2e486
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/kernel/arm/zscal.c b/kernel/arm/zscal.c
@@ -60,6 +60,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 			else
 			{
 				temp = - da_i * x[ip+1] ;
+				if (isnan(x[ip]) || isinf(x[ip])) temp = NAN;
 				x[ip+1] = da_i * x[ip]  ;
 			}
 		}