isclose_operator_real32 Function

public function isclose_operator_real32(got, expect) result(test_pass)

Custom operator for isclose comparison of two real32 values Uses default relative tolerance of 1e-5 and does not print results

Arguments

Type IntentOptional Attributes Name
real(kind=real32), intent(in) :: got

The value to be tested
real(kind=real32), intent(in) :: expect

The expected value

Return Value logical

Did the comparison pass?


Calls

proc~~isclose_operator_real32~~CallsGraph proc~isclose_operator_real32 isclose_operator_real32 proc~isclose_real32 isclose_real32 proc~isclose_operator_real32->proc~isclose_real32 proc~test_print test_print proc~isclose_real32->proc~test_print

Called by

proc~~isclose_operator_real32~~CalledByGraph proc~isclose_operator_real32 isclose_operator_real32 interface~operator (.isclose.) operator (.isclose.) interface~operator (.isclose.)->proc~isclose_operator_real32

Source Code

    function isclose_operator_real32(got, expect) result(test_pass)

      real(kind=real32), intent(in) :: got      !! The value to be tested
      real(kind=real32), intent(in) :: expect   !! The expected value

      logical :: test_pass  !! Did the comparison pass?

      test_pass = isclose_real32(got, expect, "unused", 1.0e-05_real32, .false.)

    end function isclose_operator_real32