diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 01999e5..09cfe78 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -1091,7 +1091,7 @@ resolve_structure_cons (gfc_expr *expr, int init) cl2->next = cl->next; gfc_free_expr (cl->length); - gfc_free (cl); + free (cl); } cons->expr->ts.u.cl = gfc_new_charlen (gfc_current_ns, NULL); @@ -5194,7 +5194,7 @@ check_host_association (gfc_expr *e) for (n = 0; n < e->rank; n++) mpz_clear (e->shape[n]); - gfc_free (e->shape); + free (e->shape); } /* Give the expression the right symtree! */ @@ -8643,7 +8643,7 @@ gfc_resolve_forall (gfc_code *code, gfc_namespace *ns, int forall_save) gcc_assert (forall_save == 0); /* VAR_EXPR is not needed any more. */ - gfc_free (var_expr); + free (var_expr); total_var = 0; } } @@ -13184,7 +13184,7 @@ resolve_equivalence (gfc_equiv *eq) e->ts.u.cl = NULL; } ref = ref->next; - gfc_free (mem); + free (mem); } /* Any further ref is an error. */ |