Merge branch 'en/dir-nonbare-embedded'

[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