数值计算，并不等价于理论分析。
学会调试。

谢谢asymptotic老师，能不能说的详细些啊 

看看如下代码在您的编译器中，执行会出现什么问题？其实，你应该学会搜索，将出错信息贴到 Google 就会出来一大堆相似的提问。

program main
  implicit none
  
  real:: x, y, z
  x = 2.5E30
  y = 1.0 + x * x
  z = sqrt(y)
  write(*, *) z
  
  y = -1.0
  z = sqrt(y)
  write(*, *) z
  
  stop
end program main

对无穷大开方不会提示上面那样的错误吧