Call mpz_clear for otherwise leaking mpz_t.

1 files changed, 1 insertions, 1 deletions

diff --git a/rand.c b/rand.c
index 251854c28..00d740a72 100644
--- a/rand.c
+++ b/rand.c
@@ -116,7 +116,7 @@ gmp_randinit (va_alist)
 	/* Install scheme.  */
 	mpz_init_set_str (a, sp->astr, 0);
 	gmp_randinit_lc_2exp (rstate, a, sp->c, sp->m2exp);
-	
+	mpz_clear (a);
 	break;
       }