Make some toml tests pass with ifx

Author: krystophny

src/fpm/dependency.f90

@@ -1284,7 +1284,10 @@ logical function dependency_node_is_same(this,that)
             if (.not.(this%done  .eqv.other%done)) return
             if (.not.(this%update.eqv.other%update)) return
             if (.not.(this%cached.eqv.other%cached)) return
+
+            if (.not. allocated(this%proj_dir) .eqv. allocated(other%proj_dir)) return
             if (.not.(this%proj_dir==other%proj_dir)) return
+            if (.not. allocated(this%revision) .eqv. allocated(other%revision)) return
             if (.not.(this%revision==other%revision)) return
 
             if (.not.(allocated(this%version).eqv.allocated(other%version))) return
@@ -1475,7 +1478,10 @@ subroutine tree_dump_to_toml(self, table, error)
 
                  !> Because dependencies are named, fallback if this has no name
                  !> So, serialization will work regardless of size(self%dep) == self%ndep
-                 if (len_trim(dep%name)==0) then
+                 if (.not. allocated(dep%name)) then
+                    write(unnamed,1) ii
+                    call add_table(ptr_deps, trim(unnamed), ptr)
+                 else if (len_trim(dep%name)==0) then
                     write(unnamed,1) ii
                     call add_table(ptr_deps, trim(unnamed), ptr)
                  else

src/fpm/git.f90

@@ -149,6 +149,8 @@ logical function git_is_same(this,that)
 
         select type (other=>that)
            type is (git_target_t)
+              if (.not. allocated(this%url) .or. .not. allocated(other%url) .or. &
+                  .not. allocated(this%object) .or. .not. allocated(other%object)) return
 
               if (.not.(this%descriptor==other%descriptor)) return
               if (.not.(this%url==other%url)) return

src/fpm/manifest/dependency.f90

@@ -411,8 +411,11 @@ logical function dependency_is_same(this,that)
         select type (other=>that)
            type is (dependency_config_t)
 
+              if (.not. allocated(this%name) .or. .not. allocated(other%name)) return
               if (.not.(this%name==other%name)) return
+              if (.not. allocated(this%path) .or. .not. allocated(other%path)) return
               if (.not.(this%path==other%path)) return
+              if (.not. allocated(this%namespace) .or. .not. allocated(other%namespace)) return
               if (.not.(this%namespace==other%namespace)) return
               if (.not.(allocated(this%requested_version).eqv.allocated(other%requested_version))) return
               if (allocated(this%requested_version)) then