st_function_2.f90

linux下编程用 编译软件

! 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