git.oblomov.eu Git - git/blob - t/t4018/fortran-external-function

   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