Blame tests/mpz/t-gcd_ui.c

Packit 5c3484
/* Test mpz_gcd_ui.
Packit 5c3484
Packit 5c3484
Copyright 2003 Free Software Foundation, Inc.
Packit 5c3484
Packit 5c3484
This file is part of the GNU MP Library test suite.
Packit 5c3484
Packit 5c3484
The GNU MP Library test suite is free software; you can redistribute it
Packit 5c3484
and/or modify it under the terms of the GNU General Public License as
Packit 5c3484
published by the Free Software Foundation; either version 3 of the License,
Packit 5c3484
or (at your option) any later version.
Packit 5c3484
Packit 5c3484
The GNU MP Library test suite is distributed in the hope that it will be
Packit 5c3484
useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
Packit 5c3484
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General
Packit 5c3484
Public License for more details.
Packit 5c3484
Packit 5c3484
You should have received a copy of the GNU General Public License along with
Packit 5c3484
the GNU MP Library test suite.  If not, see https://www.gnu.org/licenses/.  */
Packit 5c3484
Packit 5c3484
#include <stdio.h>
Packit 5c3484
#include <stdlib.h>
Packit 5c3484
Packit 5c3484
#include "gmp.h"
Packit 5c3484
#include "gmp-impl.h"
Packit 5c3484
#include "tests.h"
Packit 5c3484
Packit 5c3484
/* Check mpz_gcd_ui doesn't try to return a value out of range.
Packit 5c3484
   This was wrong in gmp 4.1.2 with a long long limb.  */
Packit 5c3484
static void
Packit 5c3484
check_ui_range (void)
Packit 5c3484
{
Packit 5c3484
  unsigned long  got;
Packit 5c3484
  mpz_t  x;
Packit 5c3484
  int  i;
Packit 5c3484
Packit 5c3484
  mpz_init_set_ui (x, ULONG_MAX);
Packit 5c3484
Packit 5c3484
  for (i = 0; i < 20; i++)
Packit 5c3484
    {
Packit 5c3484
      mpz_mul_2exp (x, x, 1L);
Packit 5c3484
      got = mpz_gcd_ui (NULL, x, 0L);
Packit 5c3484
      if (got != 0)
Packit 5c3484
        {
Packit 5c3484
          printf ("mpz_gcd_ui (ULONG_MAX*2^%d, 0)\n", i);
Packit 5c3484
          printf ("   return %#lx\n", got);
Packit 5c3484
          printf ("   should be 0\n");
Packit 5c3484
          abort ();
Packit 5c3484
        }
Packit 5c3484
    }
Packit 5c3484
Packit 5c3484
  mpz_clear (x);
Packit 5c3484
}
Packit 5c3484
Packit 5c3484
int
Packit 5c3484
main (void)
Packit 5c3484
{
Packit 5c3484
  tests_start ();
Packit 5c3484
Packit 5c3484
  check_ui_range ();
Packit 5c3484
Packit 5c3484
  tests_end ();
Packit 5c3484
  exit (0);
Packit 5c3484
}