Merge pull request #4429 from martin-frbg/issue4428
Handle NAN and INF in ARM and generic/s390x ZSCAL
This commit is contained in:
commit
2527afaaa2
|
@ -60,6 +60,7 @@ int CNAME(BLASLONG n, BLASLONG dummy0, BLASLONG dummy1, FLOAT da_r,FLOAT da_i, F
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
temp = - da_i * x[ip+1] ;
|
temp = - da_i * x[ip+1] ;
|
||||||
|
if (isnan(x[ip]) || isinf(x[ip])) temp = NAN;
|
||||||
x[ip+1] = da_i * x[ip] ;
|
x[ip+1] = da_i * x[ip] ;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue