Take into account Inf, Nans ; clear the flags of the return variable

in most function calls. Tests updated accordingly


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

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/tmul_2exp.c b/tests/tmul_2exp.c
index 890c51e42..f00f3d3a1 100644
--- a/tests/tmul_2exp.c
+++ b/tests/tmul_2exp.c
@@ -35,6 +35,14 @@ main(argc,argv) int argc; char *argv[];
 
   mpfr_init2(w, 53); 
 
+  mpfr_set_d(w, 1.0/0.0, 0); 
+  mpfr_mul_2exp(w, w, 10, GMP_RNDZ); 
+  if (!MPFR_IS_INF(w)) { fprintf(stderr, "Inf != Inf"); exit(-1); }
+  
+  mpfr_set_d(w, 0.0/0.0, 0); 
+  mpfr_mul_2exp(w, w, 10, GMP_RNDZ); 
+  if (!MPFR_IS_NAN(w)) { fprintf(stderr, "NaN != NaN"); exit(-1); }
+
   for (k = 0; k < 100000; k++) {
     srand48(time(NULL)); 
     x = drand48(); 
@@ -56,6 +64,8 @@ main(argc,argv) int argc; char *argv[];
       }
   }
 
+  
+
   mpfr_clear(w); 
   return (0); 
 }