From: Harald Anlauf <anlauf@gmx.de>
Date: Sat, 25 Feb 2023 18:05:38 +0000 (+0100)
Subject: Fortran: fix memory leak with real to integer conversion warning
X-Git-Tag: basepoints/gcc-14~863
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=03c60e525bea13c15edd2f64cd582f168fe80bfb;p=thirdparty%2Fgcc.git

Fortran: fix memory leak with real to integer conversion warning

gcc/fortran/ChangeLog:

	* arith.cc (gfc_real2int): Clear mpfr variable after use.
---

diff --git a/gcc/fortran/arith.cc b/gcc/fortran/arith.cc
index d0d1c0b03d22..37aeaf1b186f 100644
--- a/gcc/fortran/arith.cc
+++ b/gcc/fortran/arith.cc
@@ -2257,6 +2257,7 @@ gfc_real2int (gfc_expr *src, int kind)
 			   gfc_typename (&result->ts), &src->where);
 	  did_warn = true;
 	}
+      mpfr_clear (f);
     }
   if (!did_warn && warn_conversion_extra)
     {