Fortran将NaN设置为零

Question

有什么方法可以在Fortran90中将NaN（不是数字）设置为零

program testnan
implicit none

real :: x,y
x = -1
y = sqrt(x)
if(y.lt.0)then
y = 0
end if

print*, x, y

end program testnan

我尝试了一些测试，但是找不到解决方案。