]> git.ipfire.org Git - thirdparty/git.git/blob - t/t4018/fortran-external-function
Merge branch 'ea/blame-use-oideq'
[thirdparty/git.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