Skip to content

Commit a1ea7c5

Browse files
committed
check if fetch is uninitialized
1 parent abcd478 commit a1ea7c5

File tree

1 file changed

+4
-2
lines changed

1 file changed

+4
-2
lines changed

src/fpm/dependency.f90

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -602,6 +602,8 @@ subroutine resolve_dependency(self, dependency, global_settings, root, error)
602602
call get_package_data(package, manifest, error)
603603
if (allocated(error)) return
604604

605+
print *, 'dependency',dependency%name,': fetch=',fetch,' allocated(git)=',allocated(dependency%git),' proj_dir=',proj_dir,' fetch=',fetch
606+
605607
call dependency%register(package, proj_dir, fetch, revision, error)
606608
if (allocated(error)) return
607609

@@ -960,8 +962,8 @@ subroutine register(self, package, root, fetch, revision, error)
960962
self%update = update
961963
self%done = .true.
962964

963-
if (self%update) print *, 'register: set '//self%name//' for update, has revision? ',present(revision),' fetch? ',fetch
964-
if (self%update .and. present(revision)) print *, ' git object=',self%git%object,' revision=',revision
965+
print *, 'register: set '//self%name//' for update, has revision? ',present(revision),' fetch? ',fetch,' set update? ',self%update
966+
if (present(revision)) print *, ' git object=',self%git%object,' revision=',revision
965967

966968
end subroutine register
967969

0 commit comments

Comments
 (0)