real a,b,c
open(10,file="test5.in")
open(11,file="test5.out")
read(10,*) a,b
call sum(a,b,c)
print *,"a+b=",c
write(11,*) c
stop
end

subroutine sum(a,b,c)
c=a+b
return
end