Skip to content

Commit f09d3d8

Browse files
authored
Merge pull request #1001 from perazz/no_empty_deps
Ensure no empty dependencies in dependency tree
2 parents 9a2849d + 47fcdb3 commit f09d3d8

File tree

1 file changed

+10
-0
lines changed

1 file changed

+10
-0
lines changed

src/fpm/dependency.f90

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -406,6 +406,9 @@ recursive subroutine add_project_dependencies(self, package, root, main, error)
406406
end if
407407
end if
408408

409+
!> Ensure allocation fits
410+
call resize(self%dep,self%ndep)
411+
409412
end subroutine add_project_dependencies
410413

411414
!> Add a list of dependencies to the dependency tree
@@ -430,6 +433,9 @@ subroutine add_dependencies(self, dependency, error)
430433
end do
431434
if (allocated(error)) return
432435

436+
!> Ensure allocation fits ndep
437+
call resize(self%dep,self%ndep)
438+
433439
end subroutine add_dependencies
434440

435441
!> Add a single dependency node to the dependency tree
@@ -464,6 +470,10 @@ subroutine add_dependency_node(self, dependency, error)
464470
end if
465471
end if
466472
else
473+
474+
!> Safety: reallocate if necessary
475+
if (size(self%dep)==self%ndep) call resize(self%dep,self%ndep+1)
476+
467477
! New dependency: add from scratch
468478
self%ndep = self%ndep + 1
469479
self%dep(self%ndep) = dependency

0 commit comments

Comments
 (0)