assert_isclose_real64 Function

public function assert_isclose_real64(got, expect, test_name, rtol, print_result) result(test_pass)

Alias for isclose_real64

This version is deprecated and is only included for backwards compatibility. It will be removed in FTorch version 2.0.

Arguments

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

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

The expected value
character(len=*), intent(in) :: test_name

Name of the test being run
real(kind=real64), intent(in), optional :: rtol

Optional relative tolerance (defaults to 1e-5)
logical, intent(in), optional :: print_result

Optionally print test result to screen (defaults to .true.)

Return Value logical

Did the assertion pass?


Calls

proc~~assert_isclose_real64~~CallsGraph proc~assert_isclose_real64 assert_isclose_real64 proc~isclose_real64 isclose_real64 proc~assert_isclose_real64->proc~isclose_real64 proc~test_print test_print proc~isclose_real64->proc~test_print

Called by

proc~~assert_isclose_real64~~CalledByGraph proc~assert_isclose_real64 assert_isclose_real64 interface~assert_isclose assert_isclose interface~assert_isclose->proc~assert_isclose_real64

Source Code

    function assert_isclose_real64(got, expect, test_name, rtol, print_result) result(test_pass)

      character(len=*), intent(in) :: test_name                      !! Name of the test being run
      real(kind=real64), intent(in) :: got             !! The value to be tested
      real(kind=real64), intent(in) :: expect          !! The expected value
      real(kind=real64), intent(in), optional :: rtol  !! Optional relative tolerance (defaults to 1e-5)
      logical, intent(in), optional :: print_result                  !! Optionally print test result to screen (defaults to .true.)

      logical :: test_pass  !! Did the assertion pass?

      write(*,*) "Warning: assert_isclose is deprecated and will be removed in FTorch version 2.0. Please use isclose instead."

      test_pass = isclose_real64(got, expect, test_name, rtol, print_result)

    end function assert_isclose_real64