added test in configure for checking rand48 functions (HAVE_RAND48)

and fenv.h (HAVE_FENV)
added mpfr_set_machine_rnd_mode (if fenv.h exists)
replaced TEST by HAVE_FENV


git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1767 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 8 insertions, 12 deletions

diff --git a/tests/tget_d.c b/tests/tget_d.c
index fcfe219ef..652bee8d4 100644
--- a/tests/tget_d.c
+++ b/tests/tget_d.c
@@ -27,13 +27,13 @@ MA 02111-1307, USA. */
 #include "mpfr-impl.h"
 #include "mpfr-test.h"
 
-#include "rnd_mode.c"
+// #include "rnd_mode.c"
 
 int
 main (void)
 {
 
-#ifdef TEST
+#ifdef HAVE_FENV
 
    mpfr_t half, x, y;
    mp_rnd_t rnd_mode;
@@ -50,7 +50,7 @@ main (void)
        int i, j, si, sj;
        double di, dj;
 
-       mpfr_set_machine_rnd_mode(rnd_mode);
+       mpfr_set_machine_rnd_mode (rnd_mode);
        for (i = 1, di = 0.25; i < 127; i++, di *= 0.5)
          for (si = 0; si <= 1; si++)
            {
@@ -95,11 +95,11 @@ main (void)
                      d /= 1 << -exp;
                    if (c != d)
                      {
-                       fprintf(stderr, "Error in tget_d (%s) for "
-                               "(i,si,j,sj,rnd,exp) = (%d,%d,%d,%d,%d,%d)\n"
-                               "got %.17g instead of %.17g\n",
-                               f, i, si, j, sj, rnd_mode, exp, c, d);
-                       exit(1);
+                       fprintf (stderr, "Error in tget_d (%s) for "
+                                "(i,si,j,sj,rnd,exp) = (%d,%d,%d,%d,%d,%d)\n"
+                                "got %.19e instead of %.19e\n",
+                                f, i, si, j, sj, rnd_mode, exp, c, d);
+                       exit (1);
                      }
                  }
            }
@@ -109,10 +109,6 @@ main (void)
    mpfr_clear(x);
    mpfr_clear(y);
 
-#else
-
-   fprintf(stderr, "Disabled\n");
-
 #endif
 
    return 0;