assert_allclose_real64_1d Function

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

Alias for allclose_real64_1d

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), dimension(:) :: got

The array of values to be tested

real(kind=real64), intent(in), dimension(:) :: expect

The array of expected values

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_allclose_real64_1d~~CallsGraph proc~assert_allclose_real64_1d assert_allclose_real64_1d proc~allclose_real64_1d allclose_real64_1d proc~assert_allclose_real64_1d->proc~allclose_real64_1d proc~test_print test_print proc~allclose_real64_1d->proc~test_print

Called by

proc~~assert_allclose_real64_1d~~CalledByGraph proc~assert_allclose_real64_1d assert_allclose_real64_1d interface~assert_allclose assert_allclose interface~assert_allclose->proc~assert_allclose_real64_1d

Source Code

    function assert_allclose_real64_1d(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), dimension(:) :: got     !! The array of values to be tested
      real(kind=real64), intent(in), dimension(:) :: expect  !! The array of expected values
      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_allclose is deprecated and will be removed in FTorch version 2.0. Please use allclose instead."

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

    end function assert_allclose_real64_1d