小编Ant*_*iro的帖子

如何在调用函数参数时保留其值而不创建新变量？这就是，如何按值传递参数？

在此示例代码中：

program what
  implicit none  
  integer :: a, b, c, d

  a = 1
  b = 2
  c = 3

  print *, a,b,c

  d = f(val(a), val(b), val(c))

  print *, d

  print *, a,b,c

  d = f(a, b, c)

  print *, d

contains

  function f(x,y,z) result(h)
    integer:: x,y,z
    integer :: h

    h = x+y+z
    x = 0
    y = 0
    z = 0
  end function
end program

当我第二次调用该函数时，它只打印 0。