Update zscal.c

2024-01-08 09:49:18 +01:00
parent 5e7f714e93
commit 25b0c48082
1 changed files with 1 additions and 1 deletions
--- a/kernel/mips/zscal.c
+++ b/kernel/mips/zscal.c
@@ -47,7 +47,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 = x[ip];
+				if (isnan(x[ip]) || isinf(x[ip])) temp = NAN;
 				x[ip+1] = da_i * x[ip]  ;
 			}
 		}