@leroysheep / rag-system
Code Commits Pulls CI/CD 81,295
bisect
bisect jch maint master next seen test todo
text 9 lines 144 Bytes
Raw
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