eq_string_string Function

private elemental function eq_string_string(lhs, rhs) result(is_eq)

Compare two character sequences for equality. In this version both character sequences are by a string.

Arguments

Type IntentOptional Attributes Name
type(string_type), intent(in) :: lhs
type(string_type), intent(in) :: rhs

Return Value logical


Called by

proc~~eq_string_string~~CalledByGraph proc~eq_string_string eq_string_string interface~operator(==) operator(==) interface~operator(==)->proc~eq_string_string

Source Code

elemental function eq_string_string(lhs, rhs) result(is_eq)
   type(string_type), intent(in) :: lhs
   type(string_type), intent(in) :: rhs
   logical :: is_eq

   is_eq = .not. (lhs > rhs)
   if (is_eq) then
      is_eq = .not. (rhs > lhs)
   end if

end function eq_string_string