Git fork
at reftables-rust 9 lines 144 B view raw
1function RIGHT(a, b) result(c) 2 3integer, intent(in) :: ChangeMe 4integer, intent(in) :: b 5integer, intent(out) :: c 6 7c = a+b 8 9end function RIGHT