tem_stringKVP_equals Function

private pure function tem_stringKVP_equals(me, other) result(res)

Indicates whether this instance and a specified object are equal.

Arguments

Type IntentOptional Attributes Name
type(tem_stringKeyValuePair_type), intent(in) :: me

THe current instance.
type(tem_stringKeyValuePair_type), intent(in) :: other

The instance to compare with the current instance.

Return Value logical

.true. when both instances are equal, otherwise .false.


Called by

proc~~tem_stringkvp_equals~~CalledByGraph proc~tem_stringkvp_equals tem_stringKVP_equals proc~tem_stringkvp_notequals tem_stringKVP_notEquals proc~tem_stringkvp_notequals->proc~tem_stringkvp_equals interface~operator (==) operator (==) interface~operator (==)->proc~tem_stringkvp_equals interface~operator (SLASH=) operator (/=) interface~operator (SLASH=)->proc~tem_stringkvp_notequals

Contents

Source Code

tem_stringKVP_equals

Source Code

  pure function tem_stringKVP_equals(me, other) result (res)
    ! ---------------------------------------------------------------------------
    !> THe current instance.
    type(tem_stringKeyValuePair_type), intent(in) :: me
    !> The instance to compare with the current instance.
    type(tem_stringKeyValuePair_type), intent(in) :: other
    !> .true. when both instances are equal, otherwise .false.
    logical :: res
    ! ---------------------------------------------------------------------------

    res = (me%key == other%key) .and. (me%value == other%value)

  end function tem_stringKVP_equals