diff --git a/kernel/riscv64/zscal.c b/kernel/riscv64/zscal.c
index b2d537d04..c4855f73e 100644
--- a/kernel/riscv64/zscal.c
+++ b/kernel/riscv64/zscal.c
@@ -61,7 +61,9 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
 			{
 				temp = - da_i * x[ip+1] ;
 				if (isnan(x[ip]) || isinf(x[ip])) temp = NAN;
-				x[ip+1] = da_i * x[ip]  ;
+				if (!isinf(x[ip+1])) 
+					x[ip+1] = da_i * x[ip]  ;
+				else 	x[ip+1] = NAN;
 			}
 		}
 		else