repo.or.cz
/
git
/
debian.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
sparse-checkout: enable reapply to take --[no-]{cone,sparse-index}
[git/debian.git]
/
t
/
t4018
/
fortran-external-function
blob
5a2d85d3aa410ea3fceb8eb23224afed06191753
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