st_function_2.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 22 行

! PR15620
! Check that evaluating a statement function doesn't affect the value of
! its dummy argument variables.
program st_function_2
  integer fn, a, b
  fn(a, b) = a + b
  if (foo(1) .ne. 43) call abort

  ! Check that values aren't modified when avaluating the arguments.
  a = 1
  b = 5
  if (fn (b + 2, a + 3) .ne. 11) call abort
contains
function foo (x) 
  integer z, y, foo, x 
  bar(z) = z*z 
  z = 42 
  t = bar(x) 
  foo = t + z 
end function 
end program