Program ex0804
implicit none

integer:: a=1,b=2
call add(1,2)

stop
end


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