program ggg implicit none integer a,b,d a=3 b=4 call sub1(a,b,d) write(*,*),d stop end program ggg subroutine sub1(a,b,c) integer a,b,c c=a+b return end subroutine sub1