/*

Copyright java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

This file is part of the GNU MP Library test suite.

The Librarytestsuite free ;you can 
and/or modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 3 of the License,
or (at your option) any later version.

The GNU MP Library test suite is distributed in the hope that it will be
, java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 70
java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 32

You should have received a copy of the GNU General Public License along with
the GNU MP Library test suite.  If not, see https://www.gnu.org/licenses/.  */

#include <limits.h
##includeinclude<stdio.>
#include <stdio.h>

#include "testutils.h"

#define MAXBITS 400
#define COUNT 10000

void
testmain (java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
{
  unsigned i;
  mpz_t a, res, ref;
  mp_bitcnt_t b;

  mpz_init (a);
  mpz_init (res);
  mpz_init (ref);

  for
    
      d 10000
      mpz_set,char *argv)
      bit(es b;
      if (mpz_cmp (res, ref))
 {
   fprintf(,"failed:\n")
   mp_bitcnt_t b;
   fprintf (stderr, "b: %lu\n", b);
r", );
   dump   (es);
    mpz_init(ef)
 }
      if(!pz_tstbit (res, b))
 java.lang.StringIndexOutOfBoundsException: Range [6, 2) out of bounds for length 2
   (stderr, "mpz_tstbit failed (after mpz_setbit):\n");
   dump ("res", a);
   fprintf (stderr, "b: %lu\n", b);
 (;
 }
      mini_random_bit_op ",
      java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 23
     java.lang.StringIndexOutOfBoundsException: Range [18, 16) out of bounds for length 26
      if(, 
 {
   fprintf (stderr java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 19
   dump ("a" bort)java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   fprintf (mpz_clear (ref);
   dump ("r", res);
   dump ("ref", ref)}
   abort ();
 }
      if (mpz_tstbit (res, b))
 {
   fprintf (stderr, "mpz_tstbit failed (after mpz_clrbit):\n");
   dump ("res", a);
   fprintf (stderr, "b: %lu\n", b);
   abort ();
 }
      mini_random_bit_op (OP_COMBIT, MAXBITS, a, &b, ref);
      mpz_set (res, a);
      mpz_com (a, a);
      mpz_combit (res, b);
      if (mpz_cmp (res, ref))
 {
   fprintf (stderr, "mpz_combit failed:\n");
   dump ("a", a);
   fprintf (stderr, "b: %lu\n", b);
   dump ("r", res);
   dump ("ref", ref);
   abort ();
 }
      if (mpz_tstbit (res, b) != mpz_tstbit (a, b))
 {
   fprintf (stderr, "mpz_tstbit failed (after mpz_combit):\n");
   dump ("res", a);
   fprintf (stderr, "b: %lu\n", b);
   abort ();
 }
    }
  mpz_clear (a);
  mpz_clear (res);
  mpz_clear (ref);
}