summaryrefslogtreecommitdiff
path: root/t/t4018/fortran-external-function
blob: 5a2d85d3aa410ea3fceb8eb23224afed06191753 (plain)
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