diff options
Diffstat (limited to 'gcc/fortran/interface.c')
| -rw-r--r-- | gcc/fortran/interface.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 00fd24a..872d489 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -87,7 +87,7 @@ gfc_free_interface (gfc_interface *intr) for (; intr; intr = next) { next = intr->next; - gfc_free (intr); + free (intr); } } @@ -912,7 +912,7 @@ count_types_test (gfc_formal_arglist *f1, gfc_formal_arglist *f2) k++; } - gfc_free (arg); + free (arg); return rc; } @@ -1147,7 +1147,7 @@ check_interface0 (gfc_interface *p, const char *interface_name) { /* Duplicate interface. */ qlast->next = q->next; - gfc_free (q); + free (q); q = qlast->next; } } @@ -3142,8 +3142,8 @@ gfc_extend_expr (gfc_expr *e, bool *real_error) /* Don't use gfc_free_actual_arglist(). */ if (actual->next != NULL) - gfc_free (actual->next); - gfc_free (actual); + free (actual->next); + free (actual); return FAILURE; } @@ -3234,8 +3234,8 @@ gfc_extend_assign (gfc_code *c, gfc_namespace *ns) return SUCCESS; } - gfc_free (actual->next); - gfc_free (actual); + free (actual->next); + free (actual); return FAILURE; } @@ -3436,6 +3436,6 @@ gfc_free_formal_arglist (gfc_formal_arglist *p) for (; p; p = q) { q = p->next; - gfc_free (p); + free (p); } } |