退货声明

return 语句可用于退出函数和子例程。与许多其他编程语言不同，它不用于设置返回值。

real function f(x)
  real, intent(in) :: x
  integer::i

  f = x

  do i = 1, 10

    f = sqrt(f) - 1.0

    if (f < 0) then
      f = -1000.
      return
    end if

  end do
end function

该函数执行迭代计算。如果 f 的值变为负值，则函数返回值 -1000。