diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-02-25 19:05:38 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-02-25 19:05:38 +0100 |
| commit | 03c60e525bea13c15edd2f64cd582f168fe80bfb (patch) | |
| tree | 154e88fed42d564b99781e3039681c1e333f8008 | |
| parent | 05652ac4e8b8685fe0c0f4ee2f75516d28bbf892 (diff) | |
| download | gcc-03c60e525bea13c15edd2f64cd582f168fe80bfb.zip gcc-03c60e525bea13c15edd2f64cd582f168fe80bfb.tar.gz gcc-03c60e525bea13c15edd2f64cd582f168fe80bfb.tar.bz2 | |
Fortran: fix memory leak with real to integer conversion warning
gcc/fortran/ChangeLog:
* arith.cc (gfc_real2int): Clear mpfr variable after use.
| -rw-r--r-- | gcc/fortran/arith.cc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/arith.cc b/gcc/fortran/arith.cc index d0d1c0b..37aeaf1 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) { |