| ! 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 |