git_is_same Function

    logical function git_is_same(this,that)
        class(git_target_t), intent(in) :: this
        class(serializable_t), intent(in) :: that

        git_is_same = .false.

        select type (other=>that)
           type is (git_target_t)
              if (.not.(this%descriptor==other%descriptor)) return
              if (allocated(this%url) .neqv. allocated(other%url)) return
              if (allocated(this%url)) then
                if (.not.(this%url==other%url)) return
              end if
              if (allocated(this%object) .neqv. allocated(other%object)) return
              if (allocated(this%object)) then
                if (.not.(this%object==other%object)) return
              end if
           class default
              ! Not the same type
              return
        end select

        !> All checks passed!
        git_is_same = .true.

    end function git_is_same