Initial revision.

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

1 files changed, 17 insertions, 0 deletions

diff --git a/tests/tcan_round.c b/tests/tcan_round.c
new file mode 100644
index 000000000..9d8889e43
--- /dev/null
+++ b/tests/tcan_round.c
@@ -0,0 +1,17 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include "gmp.h"
+#include "mpfr.h"
+
+main()
+{
+   mpfr_t x;
+
+   /* checks that rounds to nearest sets the last
+     bit to zero in case of equal distance */
+   mpfr_init2(x, 59);
+   mpfr_set_str_raw(x, "-0.10010001010111000011110010111010111110000000111101100111111E663"); 
+   mpfr_print_raw(x); 
+
+   printf("mpfr_can_round(x, 54, Z, Z, 53) = %d\n", mpfr_can_round(x, 54, GMP_RNDZ, GMP_RNDZ, 53)); 
+}