diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-04-11 14:51:25 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-04-11 14:51:25 +0000 |
| commit | f29876bba06c24d6fe543941ad6f683c61910555 (patch) | |
| tree | b52db026d1acf63cb18d292be3b1d27c43f2d29b /libgfortran/io/write.c | |
| parent | 276ebde7b1bfd430f747e21a2c8345e35fc4e622 (diff) | |
| download | gcc-f29876bba06c24d6fe543941ad6f683c61910555.zip gcc-f29876bba06c24d6fe543941ad6f683c61910555.tar.gz gcc-f29876bba06c24d6fe543941ad6f683c61910555.tar.bz2 | |
close.c: Fix white space in pointer declarations and comment formats where applicable.
2017-04-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* close.c: Fix white space in pointer declarations and comment
formats where applicable.
* fbuf.c: Likewise.
* fbuf.h: Likewise.
* format.c: Likewise.
* inquire.c: Likewise.
* intrinsics.c: Likewise.
* list_read.c: Likewise.
* lock.c: Likewise.
* open.c: Likewise.
* read.c: Likewise.
* transfer.c: Likewise.
* unit.c: Likewise.
* unix.c: Likewise.
* unix.h: Likewise.
* write.c: Likewise.
From-SVN: r246842
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index af46fe8..8dbbb09 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -863,7 +863,7 @@ write_decimal (st_parameter_dt *dtp, const fnode *f, const char *source, if (unlikely (is_char4_unit (dtp))) { - gfc_char4_t * p4 = (gfc_char4_t *) p; + gfc_char4_t *p4 = (gfc_char4_t *)p; if (nblank < 0) { memset4 (p4, '*', w); @@ -2040,8 +2040,8 @@ namelist_write_newline (st_parameter_dt *dtp) static namelist_info * -nml_write_obj (st_parameter_dt *dtp, namelist_info * obj, index_type offset, - namelist_info * base, char * base_name) +nml_write_obj (st_parameter_dt *dtp, namelist_info *obj, index_type offset, + namelist_info *base, char *base_name) { int rep_ctr; int num; @@ -2053,15 +2053,15 @@ nml_write_obj (st_parameter_dt *dtp, namelist_info * obj, index_type offset, size_t clen; index_type elem_ctr; size_t obj_name_len; - void * p; + void *p; char cup; - char * obj_name; - char * ext_name; - char * q; + char *obj_name; + char *ext_name; + char *q; size_t ext_name_len; char rep_buff[NML_DIGITS]; - namelist_info * cmp; - namelist_info * retval = obj->next; + namelist_info *cmp; + namelist_info *retval = obj->next; size_t base_name_len; size_t base_var_name_len; size_t tot_len; @@ -2156,7 +2156,7 @@ nml_write_obj (st_parameter_dt *dtp, namelist_info * obj, index_type offset, if ((elem_ctr < (nelem - 1)) && (obj->type != BT_DERIVED) && - !memcmp (p, (void*)(p + obj_size ), obj_size )) + !memcmp (p, (void *)(p + obj_size ), obj_size )) { rep_ctr++; } @@ -2393,11 +2393,11 @@ obj_loop: void namelist_write (st_parameter_dt *dtp) { - namelist_info * t1, *t2, *dummy = NULL; + namelist_info *t1, *t2, *dummy = NULL; index_type i; index_type dummy_offset = 0; char c; - char * dummy_name = NULL; + char *dummy_name = NULL; /* Set the delimiter for namelist output. */ switch (dtp->u.p.current_unit->delim_status) |