close.c: Fix white space in pointer declarations and comment formats where applicable.

[thirdparty/gcc.git] / libgfortran / io / list_read.c

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 76eafa80626948703e0cc91c0bf6c4d15b21532b..9175a6bb677f3f2c7fd7992a225ed4eb7cf8eb9d 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -1506,7 +1506,7 @@ parse_real (st_parameter_dt *dtp, void *buffer, int length)
    what it is right away.  */
 
 static void
-read_complex (st_parameter_dt *dtp, void * dest, int kind, size_t size)
+read_complex (st_parameter_dt *dtp, void *dest, int kind, size_t size)
 {
   char message[MSGLEN];
   int c;
@@ -1615,7 +1615,7 @@ eol_4:
 /* Parse a real number with a possible repeat count.  */
 
 static void
-read_real (st_parameter_dt *dtp, void * dest, int length)
+read_real (st_parameter_dt *dtp, void *dest, int length)
 {
   char message[MSGLEN];
   int c;
@@ -2382,11 +2382,11 @@ calls:
                                namelist_info **prev_nl, char *, size_t)
 calls:
       static void nml_untouch_nodes (st_parameter_dt *dtp)
-      static namelist_info * find_nml_node (st_parameter_dt *dtp,
-                                           char * var_name)
-      static int nml_parse_qualifier(descriptor_dimension * ad,
-                                    array_loop_spec * ls, int rank, char *)
-      static void nml_touch_nodes (namelist_info * nl)
+      static namelist_info *find_nml_node (st_parameter_dt *dtp,
+                                          char *var_name)
+      static int nml_parse_qualifier(descriptor_dimension *ad,
+                                    array_loop_spec *ls, int rank, char *)
+      static void nml_touch_nodes (namelist_info *nl)
       static int nml_read_obj (namelist_info *nl, index_type offset,
                               namelist_info **prev_nl, char *, size_t,
                               index_type clow, index_type chigh)
@@ -2671,9 +2671,9 @@ strcmp_extended_type (char *p, char *q)
 
 
 static namelist_info *
-find_nml_node (st_parameter_dt *dtp, char * var_name)
+find_nml_node (st_parameter_dt *dtp, char *var_name)
 {
-  namelist_info * t = dtp->u.p.ionml;
+  namelist_info *t = dtp->u.p.ionml;
   while (t != NULL)
     {
       if (strcmp (var_name, t->var_name) == 0)
@@ -2697,11 +2697,11 @@ find_nml_node (st_parameter_dt *dtp, char * var_name)
    to default values  */
 
 static void
-nml_touch_nodes (namelist_info * nl)
+nml_touch_nodes (namelist_info *nl)
 {
   index_type len = strlen (nl->var_name) + 1;
   int dim;
-  char * ext_name = xmalloc (len + 1);
+  char *ext_name = xmalloc (len + 1);
   memcpy (ext_name, nl->var_name, len-1);
   memcpy (ext_name + len - 1, "%", 2);
   for (nl = nl->next; nl; nl = nl->next)
@@ -2730,7 +2730,7 @@ nml_touch_nodes (namelist_info * nl)
 static void
 nml_untouch_nodes (st_parameter_dt *dtp)
 {
-  namelist_info * t;
+  namelist_info *t;
   for (t = dtp->u.p.ionml; t; t = t->next)
     t->touched = 0;
   return;
@@ -2765,10 +2765,10 @@ nml_match_name (st_parameter_dt *dtp, const char *name, index_type len)
 static void
 nml_query (st_parameter_dt *dtp, char c)
 {
-  gfc_unit * temp_unit;
-  namelist_info * nl;
+  gfc_unit *temp_unit;
+  namelist_info *nl;
   index_type len;
-  char * p;
+  char *p;
 #ifdef HAVE_CRLF
   static const index_type endlen = 2;
   static const char endl[] = "\r\n";
@@ -2858,19 +2858,19 @@ query_return:
    error.  */
 
 static bool
-nml_read_obj (st_parameter_dt *dtp, namelist_info * nl, index_type offset,
+nml_read_obj (st_parameter_dt *dtp, namelist_info *nl, index_type offset,
              namelist_info **pprev_nl, char *nml_err_msg,
              size_t nml_err_msg_size, index_type clow, index_type chigh)
 {
-  namelist_info * cmp;
-  char * obj_name;
+  namelist_info *cmp;
+  char *obj_name;
   int nml_carry;
   int len;
   int dim;
   index_type dlen;
   index_type m;
   size_t obj_name_len;
-  void * pdata;
+  void *pdata;
 
   /* If we have encountered a previous read error or this object has not been
      touched in name parsing, just return.  */
@@ -3191,9 +3191,9 @@ nml_get_obj_data (st_parameter_dt *dtp, namelist_info **pprev_nl,
                  char *nml_err_msg, size_t nml_err_msg_size)
 {
   int c;
-  namelist_info * nl;
-  namelist_info * first_nl = NULL;
-  namelist_info * root_nl = NULL;
+  namelist_info *nl;
+  namelist_info *first_nl = NULL;
+  namelist_info *root_nl = NULL;
   int dim, parsed_rank;
   int component_flag, qualifier_flag;
   index_type clow, chigh;