subroutinelink_submoduleprivate

subroutine link_submodule(p, id)
    type(project_t), intent(inout) :: p     !! the project
    integer, intent(in) :: id               !! the submodule
    integer :: parent

    parent = p%list%box(id)%e%parent_submodule_id
    if (parent == 0) parent = p%list%box(id)%e%ancestor_id
    if (parent > 0) call push_int(p%list%box(parent)%e%more%descendants, id)
end subroutine link_submodule