@@ -411,18 +411,24 @@ logical function dependency_is_same(this,that)
411
411
select type (other= >that)
412
412
type is (dependency_config_t)
413
413
414
- if (.not. allocated (this% name) .or. .not. allocated (other% name)) return
415
- if (.not. (this% name== other% name)) return
416
- if (.not. allocated (this% path) .or. .not. allocated (other% path)) return
417
- if (.not. (this% path== other% path)) return
418
- if (.not. allocated (this% namespace) .or. .not. allocated (other% namespace)) return
419
- if (.not. (this% namespace== other% namespace)) return
420
- if (.not. (allocated (this% requested_version).eqv. allocated (other% requested_version))) return
414
+ if (allocated (this% name).neqv. allocated (other% name)) return
415
+ if (allocated (this% name)) then
416
+ if (.not. (this% name== other% name)) return
417
+ endif
418
+ if (allocated (this% path).neqv. allocated (other% path)) return
419
+ if (allocated (this% path)) then
420
+ if (.not. (this% path== other% path)) return
421
+ endif
422
+ if (allocated (this% namespace).neqv. allocated (other% namespace)) return
423
+ if (allocated (this% namespace)) then
424
+ if (.not. (this% namespace== other% namespace)) return
425
+ endif
426
+ if (allocated (this% requested_version).neqv. allocated (other% requested_version)) return
421
427
if (allocated (this% requested_version)) then
422
428
if (.not. (this% requested_version== other% requested_version)) return
423
429
endif
424
430
425
- if (.not. (allocated (this% git).eqv . allocated (other% git))) return
431
+ if ((allocated (this% git).neqv . allocated (other% git))) return
426
432
if (allocated (this% git)) then
427
433
if (.not. (this% git== other% git)) return
428
434
endif
0 commit comments