added missing mpfr_clear and tests_end_mpfr (thanks Michael Abshoff)

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

1 files changed, 8 insertions, 0 deletions

diff --git a/tests/tinp_str.c b/tests/tinp_str.c
index 4957cc47c..1c7088650 100644
--- a/tests/tinp_str.c
+++ b/tests/tinp_str.c
@@ -40,6 +40,8 @@ main (int argc, char *argv[])
   if (f == NULL)
     {
       printf ("Error, can't open inp_str.data\n");
+      mpfr_clear (x);
+      tests_end_mpfr ();
       exit (1);
     }
   i = mpfr_inp_str (x, f, 10, GMP_RNDN);
@@ -47,6 +49,8 @@ main (int argc, char *argv[])
     {
       printf ("Error in reading 1st line from file inp_str.data (%d)\n", i);
       mpfr_dump (x);
+      mpfr_clear (x);
+      tests_end_mpfr ();
       exit (1);
     }
   getc (f);
@@ -55,6 +59,8 @@ main (int argc, char *argv[])
     {
       printf ("Error in reading 2nd line from file inp_str.data (%d)\n", i);
       mpfr_dump (x);
+      mpfr_clear (x);
+      tests_end_mpfr ();
       exit (1);
     }
   getc (f);
@@ -63,6 +69,8 @@ main (int argc, char *argv[])
     {
       printf ("Error in reading 3rd line from file inp_str.data (%d)\n", i);
       mpfr_dump (x);
+      mpfr_clear (x);
+      tests_end_mpfr ();
       exit (1);
     }
   fclose (f);