assert_equal_i Subroutine

  subroutine assert_equal_i(this, i1, i2, fail)
    class(tester_t), intent(inout) :: this
    integer, intent(in) :: i1, i2
    logical, intent(in), optional :: fail

    this% n_tests = this% n_tests + 1
    if (i1 .ne. i2) then
       if (.not. present(fail) .or. (present(fail) .and. fail .eqv. .false.)) then
          this% n_errors = this% n_errors + 1
       end if
    end if

  end subroutine assert_equal_i