9 lines
144 B
Text
9 lines
144 B
Text
function RIGHT(a, b) result(c)
|
|
|
|
integer, intent(in) :: ChangeMe
|
|
integer, intent(in) :: b
|
|
integer, intent(out) :: c
|
|
|
|
c = a+b
|
|
|
|
end function RIGHT
|