is_identical Function

private function is_identical(self, other)

Determines if a passed exit_code instance is identical to this instance.

We could imagine providing an operator(==) overload that makes use of this but this may not be well supported by all compilers currently.

Type Bound

exit_code

Arguments

Type IntentOptional Attributes Name
class(exit_code), intent(in) :: self
type(exit_code), intent(in) :: other

Return Value logical


Contents

Source Code

is_identical

Source Code

  logical function is_identical(self, other)
    implicit none
    class(exit_code), intent(in) :: self
    type(exit_code), intent(in) :: other
    is_identical = (self%code == other%code)
    is_identical = is_identical .and. (self%message == other%message)
  end function is_identical