aboutsummaryrefslogtreecommitdiff
path: root/gcc/fortran/arith.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/fortran/arith.c')
-rw-r--r--gcc/fortran/arith.c2
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;
}