Merge branch 'en/dir-nonbare-embedded'
[git] / t / t4018 / fortran-external-function
1 function RIGHT(a, b) result(c)
2
3 integer, intent(in) :: ChangeMe
4 integer, intent(in) :: b
5 integer, intent(out) :: c
6
7 c = a+b
8
9 end function RIGHT