@@ -602,6 +602,8 @@ subroutine resolve_dependency(self, dependency, global_settings, root, error)
602
602
call get_package_data(package, manifest, error)
603
603
if (allocated (error)) return
604
604
605
+ print * , ' dependency' ,dependency% name,' : fetch=' ,fetch,' allocated(git)=' ,allocated (dependency% git),' proj_dir=' ,proj_dir,' fetch=' ,fetch
606
+
605
607
call dependency% register(package, proj_dir, fetch, revision, error)
606
608
if (allocated (error)) return
607
609
@@ -960,8 +962,8 @@ subroutine register(self, package, root, fetch, revision, error)
960
962
self% update = update
961
963
self% done = .true.
962
964
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
965
967
966
968
end subroutine register
967
969
0 commit comments