Program ex0807
implicit none
    real::a=1,b=2
    real,external::add
    write(*,*)add(a,b)
stop
end


function add(a,b)
    implicit none
    real:: a,b
    real::add
    add=a+b
    return
end