assert_equal_i32_1 Subroutine

private subroutine assert_equal_i32_1(this, i1, i2)

Check if two integer (32 bits) arrays (rank 1) are equal.

Type Bound

tester_t

Arguments

Type IntentOptional Attributes Name
class(tester_t), intent(inout) :: this

The tester.
integer(kind=int32), intent(in), dimension(:) :: i1

Value to compare.
integer(kind=int32), intent(in), dimension(:) :: i2

Value to compare.

Called by

proc~~assert_equal_i32_1~~CalledByGraph proc~assert_equal_i32_1 tester::tester_t%assert_equal_i32_1 none~assert_equal tester::tester_t%assert_equal none~assert_equal->proc~assert_equal_i32_1 program~flap_test_group flap_test_group program~flap_test_group->none~assert_equal program~test_tester_05 test_tester_05 program~test_tester_05->none~assert_equal program~test_tester_1 test_tester_1 program~test_tester_1->none~assert_equal program~test_tester_1~2 test_tester_1 program~test_tester_1~2->none~assert_equal program~test_tester_2 test_tester_2 program~test_tester_2->none~assert_equal program~test_tester_3 test_tester_3 program~test_tester_3->none~assert_equal program~test_tester_4 test_tester_4 program~test_tester_4->none~assert_equal program~test_tester_7 test_tester_7 program~test_tester_7->none~assert_equal program~test_tester_8 test_tester_8 program~test_tester_8->none~assert_equal

Source Code

  subroutine assert_equal_i32_1(this, i1, i2)
    class(tester_t),              intent(inout)        :: this !< The tester.
    integer(int32), dimension(:), intent(in)           :: i1   !< Value to compare.
    integer(int32), dimension(:), intent(in)           :: i2   !< Value to compare.

    this% n_tests = this% n_tests + 1

    if ( size(i1) .ne. size(i2) ) then
       this% n_errors = this% n_errors + 1
    else
       if ( maxval(abs(i1-i2)) > 0 ) then
          this% n_errors = this% n_errors + 1
       end if
    end if

  end subroutine assert_equal_i32_1