Merge branch 'jx/proc-receive-hook'

[git] / t / t4018 / fortran-external-function

function RIGHT(a, b) result(c)

integer, intent(in) :: ChangeMe
integer, intent(in) :: b
integer, intent(out) :: c

c = a+b

end function RIGHT