assert_isclose_real32 Function

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

Alias for isclose_real32

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=real32), intent(in) :: got

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

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

Name of the test being run
real(kind=real32), 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_real32~~CallsGraph proc~assert_isclose_real32 assert_isclose_real32 proc~isclose_real32 isclose_real32 proc~assert_isclose_real32->proc~isclose_real32 proc~test_print test_print proc~isclose_real32->proc~test_print

Called by

proc~~assert_isclose_real32~~CalledByGraph proc~assert_isclose_real32 assert_isclose_real32 interface~assert_isclose assert_isclose interface~assert_isclose->proc~assert_isclose_real32

Source Code

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

      character(len=*), intent(in) :: test_name                      !! Name of the test being run
      real(kind=real32), intent(in) :: got             !! The value to be tested
      real(kind=real32), intent(in) :: expect          !! The expected value
      real(kind=real32), 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_real32(got, expect, test_name, rtol, print_result)

    end function assert_isclose_real32