退貨宣告

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。