functionoverridesprivate

logical function overrides(p, id, name)
    type(project_t), intent(in) :: p        !! the project
    integer, intent(in) :: id               !! the type
    character(len=*), intent(in) :: name    !! the binding
    integer :: c, child

    overrides = .false.
    do c = 1, size(p%list%box(id)%e%children)
        child = p%list%box(id)%e%children(c)
        if (p%list%box(child)%e%kind /= E_BOUNDPROC) cycle
        if (lowercase(p%list%box(child)%e%name) == lowercase(name)) then
            overrides = .true.
            return
        end if
    end do
end function overrides