Added div_2exp to the (very rough) test.

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

1 files changed, 21 insertions, 10 deletions

diff --git a/tests/tmul_2exp.c b/tests/tmul_2exp.c
index fc04a0b2a..96da66435 100644
--- a/tests/tmul_2exp.c
+++ b/tests/tmul_2exp.c
@@ -31,19 +31,30 @@ MA 02111-1307, USA. */
 int
 main(argc,argv) int argc; char *argv[];
 {
-  double x, z; mpfr_t w;
+  double x, z; mpfr_t w; unsigned long k; 
 
   mpfr_init2(w, 53); 
 
-  srand48(time(NULL)); 
-  x = drand48(); 
-  mpfr_set_d(w, x, 0);
-  mpfr_mul_2exp(w, w, 10, GMP_RNDZ); 
-  if (x != (z = mpfr_get_d(w)/1024))
-    {
-      fprintf(stderr, "%f != %f\n", x, z); 
-      return (-1); 
-    }
+  for (k = 0; k < 100000; k++) {
+    srand48(time(NULL)); 
+    x = drand48(); 
+    mpfr_set_d(w, x, 0);
+    mpfr_mul_2exp(w, w, 10, GMP_RNDZ); 
+    if (x != (z = mpfr_get_d(w)/1024))
+      {
+	fprintf(stderr, "%f != %f\n", x, z); 
+	return (-1); 
+      }
+    
+    mpfr_set_d(w, x, 0);
+    mpfr_div_2exp(w, w, 10, GMP_RNDZ); 
+    if (x != (z = mpfr_get_d(w)*1024))
+      {
+	fprintf(stderr, "%f != %f\n", x, z); 
+	return (-1); 
+      }
+  }
+
   return (0); 
 }