diff options
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 4bba438..9ac0fc68 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -2059,6 +2059,8 @@ scalarize_intrinsic_call (gfc_expr *e) free_expr0 (e); *e = *expr; + /* Free "expr" but not the pointers it contains. */ + free (expr); gfc_free_expr (old); return SUCCESS; |