diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-03-15 08:56:16 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-03-15 08:56:16 +0000 |
| commit | 22fc7cb8cc65461ae07326112e57560550ff12ea (patch) | |
| tree | e7ec39f43fd61267bab4ad11f412939f4e9d314a /gcc/fortran/arith.c | |
| parent | 435709082227b1c564f61cf3fdb7632d0d30a9eb (diff) | |
| download | gcc-22fc7cb8cc65461ae07326112e57560550ff12ea.tar.gz | |
* arith.c (arith_power): Plug memory leak.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@170980 138bc75d-0d04-0410-961f-82ee72b054a4
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 2a9ea750103..53a9dad42fe 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; } |