How to declare a procedure?

Example:interface function dummy_fun(a, b) result(r) real, intent(in) :: a, b real :: r end function dummy_funend interface

Example: interface function dummy_fun(a, b) result(r) real, intent(in) :: a, b real :: r end function dummy_fun end interface