Attachment 7384 Details for Bug 16520 – test program

test program

test7.c (text/x-c), 1.19 KB, created by Paul Zimmermann on 2014-02-01 09:27:49 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Paul Zimmermann

Created: 2014-02-01 09:27:49 UTC

Size: 1.19 KB

patch

obsolete

>#include <stdio.h>
>#include <math.h>
>#include <mpfr.h>
>#include <gnu/libc-version.h>
>#include <fenv.h>
>
>float
>ulp (float x, float y)
>{
>  float z = x - y, t, twoy;
>
>  twoy = y + y;
>  if (twoy != twoy + twoy) /* twoy is finite */
>    t = nextafterf (y, twoy);
>  else /* twoy is +Inf or -Inf */
>    t = nextafter (y, (float) 0);
>  t = y - t;
>  if (t < (float) 0)
>    t = -t;
>  /* now t = ulp(y) */
>  return z / t;
>}
>
>int
>main ()
>{
>  float x = 0x1p-149;
>  float y, z;
>  mpfr_t t;
>  int inex, runderflow;
>
>  printf("GNU libc version: %s\n", gnu_get_libc_version ());
>  printf("GNU libc release: %s\n", gnu_get_libc_release ());
>  fesetround (FE_TONEAREST);
>  feclearexcept (FE_ALL_EXCEPT);
>  y = tanhf (x);
>  runderflow = fetestexcept (FE_UNDERFLOW);
>  mpfr_set_emin (-125 - 24 + 1);
>  mpfr_set_emax (128);
>  mpfr_init2 (t, 24);
>  mpfr_set_flt (t, x, MPFR_RNDN); /* exact */
>  inex = mpfr_tanh (t, t, MPFR_RNDN);
>  inex = mpfr_subnormalize (t, inex, MPFR_RNDN);
>  z = mpfr_get_flt (t, MPFR_RNDN); /* exact */
>  printf ("x=%a (%.9e)\n", x, x);
>  printf ("libc: tanhf(x)=%a (%.9e) underflow=%d\n", y, y, runderflow);
>  printf ("mpfr: tanhf(x)=%a (%.9e)\n", z, z);
>  printf ("ulp difference: %f\n", ulp (y, z));
>  return 0;
>}

Actions: View

Attachments on bug 16520: 7384