aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io/write.c
diff options
context:
space:
mode:
authorJerry DeLisle <jvdelisle@gcc.gnu.org>2017-04-11 14:51:25 +0000
committerJerry DeLisle <jvdelisle@gcc.gnu.org>2017-04-11 14:51:25 +0000
commitf29876bba06c24d6fe543941ad6f683c61910555 (patch)
treeb52db026d1acf63cb18d292be3b1d27c43f2d29b /libgfortran/io/write.c
parent276ebde7b1bfd430f747e21a2c8345e35fc4e622 (diff)
downloadgcc-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.c24
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)