编辑代码

program main
implicit none
  integer :: a=1
  integer :: b=2
  call add(a,b)
  stop
end

subroutine add(first,second)
implicit none
  integer :: first,second
  write(*,*)first+second
  return
end