third_party/git/t/t4018/fortran-external-function


1
2
3
4
5
6
7
8
9

function RIGHT(a, b) result(c)

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

c = a+b

end function RIGHT