Sign in
googlers
/
jrn
/
git
/
f5b2af06f55c0f21ae0199be5fe120f2cccd698b
/
.
/
t
/
t4018
/
fortran-external-function
blob: 5a2d85d3aa410ea3fceb8eb23224afed06191753 [
file
] [
log
] [
blame
]
function
RIGHT
(
a
,
b
)
result
(
c
)
integer
,
intent
(
in
)
::
ChangeMe
integer
,
intent
(
in
)
::
b
integer
,
intent
(
out
)
::
c
c
=
a
+
b
end
function
RIGHT