subroutinelink_module_proceduresprivate

subroutine link_module_procedures(p, id)
    type(project_t), intent(inout) :: p     !! the project
    integer, intent(in) :: id               !! the interface
    integer :: k, found

    allocate (p%list%box(id)%e%more%modproc_ids(size(p%list%box(id)%e%more%modprocs)))
    do k = 1, size(p%list%box(id)%e%more%modprocs)
        found = find_symbol(p, p%list%box(id)%e%parent, lowercase(p%list%box(id)%e%more%modprocs(k)%s), 1)
        p%list%box(id)%e%more%modproc_ids(k) = found
    end do
end subroutine link_module_procedures