diff options
| -rw-r--r-- | gcc/fortran/resolve.cc | 2 | ||||
| -rw-r--r-- | libgfortran/caf/single.c | 4 | ||||
| -rw-r--r-- | libgfortran/io/async.c | 4 | ||||
| -rw-r--r-- | libgfortran/io/format.c | 2 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 4 | ||||
| -rw-r--r-- | libgfortran/io/unix.c | 2 |
6 files changed, 9 insertions, 9 deletions
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc index 3a09de1..58f05a3 100644 --- a/gcc/fortran/resolve.cc +++ b/gcc/fortran/resolve.cc @@ -9931,7 +9931,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) gfc_resolve_blocks (code->block, gfc_current_ns); gfc_current_ns = old_ns; - free(ref); + free (ref); } diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c index fea8b0c..c100d88 100644 --- a/libgfortran/caf/single.c +++ b/libgfortran/caf/single.c @@ -163,8 +163,8 @@ _gfortran_caf_register (size_t size, caf_register_t type, caf_token_t *token, /* Freeing the memory conditionally seems pointless, but caf_internal_error () may return, when a stat is given and then the memory may be lost. */ - free(local); - free(*token); + free (local); + free (*token); caf_internal_error (alloc_fail_msg, stat, errmsg, errmsg_len); return; } diff --git a/libgfortran/io/async.c b/libgfortran/io/async.c index 01adf8f..5709743 100644 --- a/libgfortran/io/async.c +++ b/libgfortran/io/async.c @@ -71,7 +71,7 @@ update_pdt (st_parameter_dt **old, st_parameter_dt *new) { NOTE ("Changing pdts, current_unit = %p", (void *) (new->u.p.current_unit)); temp = *old; *old = new; - free(temp); + free (temp); } /* Destroy an adv_cond structure. */ @@ -105,7 +105,7 @@ async_io (void *arg) /* Loop over the queue entries until they are finished. */ while (ctq) { - free(prev); + free (prev); prev = ctq; if (!au->error.has_error) { diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 66acbf0..f5fe2e4 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -269,7 +269,7 @@ free_format_data (format_data *fmt) fnp->format != FMT_NONE; fnp++) if (fnp->format == FMT_DT) { - free(GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist)); + free (GFC_DESCRIPTOR_DATA(fnp->u.udf.vlist)); free (fnp->u.udf.vlist); } diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 19b0b9a9..0104f6c 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -4522,7 +4522,7 @@ st_read_done_worker (st_parameter_dt *dtp, bool unlock) { free (dtp->u.p.current_unit->filename); dtp->u.p.current_unit->filename = NULL; - free(dtp->u.p.current_unit->ls); + free (dtp->u.p.current_unit->ls); dtp->u.p.current_unit->ls = NULL; } free_newunit = true; @@ -4618,7 +4618,7 @@ st_write_done_worker (st_parameter_dt *dtp, bool unlock) { free (dtp->u.p.current_unit->filename); dtp->u.p.current_unit->filename = NULL; - free(dtp->u.p.current_unit->ls); + free (dtp->u.p.current_unit->ls); dtp->u.p.current_unit->ls = NULL; } free_newunit = true; diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index ef35b85..d466df9 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -1028,7 +1028,7 @@ mem_flush (unix_stream *s __attribute__ ((unused))) static int mem_close (unix_stream *s) { - free(s); + free (s); return 0; } |