diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-15 08:56:16 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2011-03-15 08:56:16 +0000 |
| commit | cc9ce9ffd6a66a6eb5a317d9c027228753d6e490 (patch) | |
| tree | e7ec39f43fd61267bab4ad11f412939f4e9d314a /gcc/fortran/arith.c | |
| parent | 0d2e205e3460f91bc6da4919f0894a44effbaf99 (diff) | |
| download | gcc-cc9ce9ffd6a66a6eb5a317d9c027228753d6e490.zip gcc-cc9ce9ffd6a66a6eb5a317d9c027228753d6e490.tar.gz gcc-cc9ce9ffd6a66a6eb5a317d9c027228753d6e490.tar.bz2 | |
* arith.c (arith_power): Plug memory leak.
From-SVN: r170980
Diffstat (limited to 'gcc/fortran/arith.c')
| -rw-r--r-- | gcc/fortran/arith.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index 2a9ea75..53a9dad 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -912,7 +912,7 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) { gfc_error ("Raising a negative REAL at %L to " "a REAL power is prohibited", &op1->where); - gfc_free (result); + gfc_free_expr (result); return ARITH_PROHIBIT; } |