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

1 files changed, 12 insertions, 12 deletions

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 1e56b5d..f16d8c5 100644
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -223,7 +223,7 @@ current_mode (st_parameter_dt *dtp)
 /* Read sequential file - internal unit  */
 
 static char *
-read_sf_internal (st_parameter_dt *dtp, int * length)
+read_sf_internal (st_parameter_dt *dtp, int *length)
 {
   static char *empty_string[0];
   char *base = NULL;
@@ -303,7 +303,7 @@ read_sf_internal (st_parameter_dt *dtp, int * length)
 /* Read sequential file - external unit */
 
 static char *
-read_sf (st_parameter_dt *dtp, int * length)
+read_sf (st_parameter_dt *dtp, int *length)
 {
   static char *empty_string[0];
   int q, q2;
@@ -445,7 +445,7 @@ read_sf (st_parameter_dt *dtp, int * length)
    short reads.  */
 
 void *
-read_block_form (st_parameter_dt *dtp, int * nbytes)
+read_block_form (st_parameter_dt *dtp, int *nbytes)
 {
   char *source;
   int norig;
@@ -527,7 +527,7 @@ read_block_form (st_parameter_dt *dtp, int * nbytes)
    a character(kind=4) variable.  Note: Portions of this code borrowed from
    read_sf_internal.  */
 void *
-read_block_form4 (st_parameter_dt *dtp, int * nbytes)
+read_block_form4 (st_parameter_dt *dtp, int *nbytes)
 {
   static gfc_char4_t *empty_string[0];
   gfc_char4_t *source;
@@ -3584,7 +3584,7 @@ next_record_w_unf (st_parameter_dt *dtp, int next_subrecord)
    value is same as for POSIX write().  */
 
 static ssize_t
-sset (stream * s, int c, ssize_t nbyte)
+sset (stream *s, int c, ssize_t nbyte)
 {
 #define WRITE_CHUNK 256
   char p[WRITE_CHUNK];
@@ -3622,7 +3622,7 @@ next_record_cc (st_parameter_dt *dtp)
   fbuf_seek (dtp->u.p.current_unit, 0, SEEK_END);
   if (dtp->u.p.cc.len > 0)
     {
-      char * p = fbuf_alloc (dtp->u.p.current_unit, dtp->u.p.cc.len);
+      char *p = fbuf_alloc (dtp->u.p.current_unit, dtp->u.p.cc.len);
       if (!p)
 	generate_error (&dtp->common, LIBERROR_OS, NULL);
 
@@ -3795,7 +3795,7 @@ next_record_w (st_parameter_dt *dtp, int done)
 	  fbuf_seek (dtp->u.p.current_unit, 0, SEEK_END);
 	  if (dtp->u.p.current_unit->flags.cc != CC_NONE)
 	    {
-	      char * p = fbuf_alloc (dtp->u.p.current_unit, len);
+	      char *p = fbuf_alloc (dtp->u.p.current_unit, len);
 	      if (!p)
 		goto io_error;
 #ifdef HAVE_CRLF
@@ -4182,7 +4182,7 @@ st_wait (st_parameter_wait *wtp __attribute__((unused)))
    in a linked list of namelist_info types.  */
 
 static void
-set_nml_var (st_parameter_dt *dtp, void * var_addr, char * var_name,
+set_nml_var (st_parameter_dt *dtp, void *var_addr, char *var_name,
 	     GFC_INTEGER_4 len, gfc_charlen_type string_length,
 	     GFC_INTEGER_4 dtype, void *dtio_sub, void *vtable)
 {
@@ -4239,7 +4239,7 @@ extern void st_set_nml_var (st_parameter_dt *dtp, void *, char *,
 export_proto(st_set_nml_var);
 
 void
-st_set_nml_var (st_parameter_dt *dtp, void * var_addr, char * var_name,
+st_set_nml_var (st_parameter_dt *dtp, void *var_addr, char *var_name,
 		GFC_INTEGER_4 len, gfc_charlen_type string_length,
 		GFC_INTEGER_4 dtype)
 {
@@ -4257,7 +4257,7 @@ export_proto(st_set_nml_dtio_var);
 
 
 void
-st_set_nml_dtio_var (st_parameter_dt *dtp, void * var_addr, char * var_name,
+st_set_nml_dtio_var (st_parameter_dt *dtp, void *var_addr, char *var_name,
 		     GFC_INTEGER_4 len, gfc_charlen_type string_length,
 		     GFC_INTEGER_4 dtype, void *dtio_sub, void *vtable)
 {
@@ -4276,7 +4276,7 @@ st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim,
 		    index_type stride, index_type lbound,
 		    index_type ubound)
 {
-  namelist_info * nml;
+  namelist_info *nml;
   int n;
 
   n = (int)n_dim;
@@ -4295,7 +4295,7 @@ st_set_nml_var_dim (st_parameter_dt *dtp, GFC_INTEGER_4 n_dim,
    9.10.2 in F2003.  */
 
 void
-hit_eof (st_parameter_dt * dtp)
+hit_eof (st_parameter_dt *dtp)
 {
   dtp->u.p.current_unit->flags.position = POSITION_APPEND;