arith.c (gfc_arith_done_1): Release mpfr internal caches.

2010-07-11  Mikael Morin  <mikael@gcc.gnu.org>

	* arith.c (gfc_arith_done_1): Release mpfr internal caches.

From-SVN: r162058
This commit is contained in:
Mikael Morin 2010-07-11 12:14:25 +00:00
parent 8e7d962aa5
commit f67df2ca8b
2 changed files with 6 additions and 0 deletions

View File

@ -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

View File

@ -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 ();
}