mirror of
https://github.com/git/git
synced 2024-09-19 08:21:36 +00:00
10 lines
144 B
Plaintext
10 lines
144 B
Plaintext
|
function RIGHT(a, b) result(c)
|
||
|
|
||
|
integer, intent(in) :: ChangeMe
|
||
|
integer, intent(in) :: b
|
||
|
integer, intent(out) :: c
|
||
|
|
||
|
c = a+b
|
||
|
|
||
|
end function RIGHT
|