Index: ChangeLog
===================================================================
--- ChangeLog	(revision 162057)
+++ ChangeLog	(revision 162058)
@@ -1,3 +1,7 @@
+2010-07-11  Mikael Morin  <mikael@gcc.gnu.org>
+
+	* arith.c (gfc_arith_done_1): Release mpfr internal caches.
+
 2010-07-11  Janus Weil  <janus@gcc.gnu.org>
 
 	PR fortran/44869
Index: arith.c
===================================================================
--- arith.c	(revision 162057)
+++ arith.c	(revision 162058)
@@ -260,6 +260,8 @@ gfc_arith_done_1 (void)
 
   for (rp = gfc_real_kinds; rp->kind; rp++)
     mpfr_clears (rp->epsilon, rp->huge, rp->tiny, rp->subnormal, NULL);
+
+  mpfr_free_cache ();
 }