decl.c: Miscellaneous whitespace fixes.

* decl.c: Miscellaneous whitespace fixes.
* expr.c: Likewise.
* gfortran.h: Likewise.
* interface.c : Likewise.
* io.c: Likewise.
* match.c: Likewise.
* match.h: Likewise.
* module.c: Likewise.
* parse.c: Likewise.
* resolve.c: Likewise.
* symbol.c: Likewise.
* trans-array.c: Likewise.
* trans-common.c: Likewise.
* trans-decl.c: Likewise.
* trans-intrinsic.c: Likewise.
* trans-io.c: Likewise.
* trans-stmt.c: Likewise.
* trans-types.c: Likewise.

From-SVN: r125533

1 files changed, 13 insertions, 14 deletions

diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c
index 22a39b5..c30b4d6 100644
--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -423,7 +423,7 @@ compare_type_rank (gfc_symbol *s1, gfc_symbol *s2)
   r2 = (s2->as != NULL) ? s2->as->rank : 0;
 
   if (r1 != r2)
-    return 0;			/* Ranks differ */
+    return 0;			/* Ranks differ.  */
 
   return gfc_compare_types (&s1->ts, &s2->ts);
 }
@@ -750,7 +750,7 @@ count_types_test (gfc_formal_arglist *f1, gfc_formal_arglist *f2)
 	continue;
 
       if (arg[i].sym && arg[i].sym->attr.optional)
-	continue;		/* Skip optional arguments */
+	continue;		/* Skip optional arguments.  */
 
       arg[i].flag = k;
 
@@ -899,13 +899,13 @@ compare_interfaces (gfc_symbol *s1, gfc_symbol *s2, int generic_flag)
 
   if (s1->attr.function != s2->attr.function
       && s1->attr.subroutine != s2->attr.subroutine)
-    return 0;			/* disagreement between function/subroutine */
+    return 0;		/* Disagreement between function/subroutine.  */
 
   f1 = s1->formal;
   f2 = s2->formal;
 
   if (f1 == NULL && f2 == NULL)
-    return 1;			/* Special case */
+    return 1;			/* Special case.  */
 
   if (count_types_test (f1, f2))
     return 0;
@@ -965,7 +965,7 @@ check_interface0 (gfc_interface *p, const char *interface_name)
 	    }
 	  else
 	    {
-	      /* Duplicate interface */
+	      /* Duplicate interface.  */
 	      qlast->next = q->next;
 	      gfc_free (q);
 	      q = qlast->next;
@@ -978,8 +978,7 @@ check_interface0 (gfc_interface *p, const char *interface_name)
 
 
 /* Check lists of interfaces to make sure that no two interfaces are
-   ambiguous.  Duplicate interfaces (from the same symbol) are OK
-   here.  */
+   ambiguous.  Duplicate interfaces (from the same symbol) are OK here.  */
 
 static int
 check_interface1 (gfc_interface *p, gfc_interface *q0,
@@ -991,7 +990,7 @@ check_interface1 (gfc_interface *p, gfc_interface *q0,
     for (q = q0; q; q = q->next)
       {
 	if (p->sym == q->sym)
-	  continue;		/* Duplicates OK here */
+	  continue;		/* Duplicates OK here.  */
 
 	if (p->sym->name == q->sym->name && p->sym->module == q->sym->module)
 	  continue;
@@ -1193,7 +1192,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
 
       if (formal->attr.if_source == IFSRC_UNKNOWN
 	  || actual->symtree->n.sym->attr.external)
-	return 1;		/* Assume match */
+	return 1;		/* Assume match.  */
 
       return compare_interfaces (formal, actual->symtree->n.sym, 0);
     }
@@ -1226,7 +1225,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
       break;
 
   if (ref == NULL)
-    return 0;			/* Not an array element */
+    return 0;			/* Not an array element.  */
 
   return 1;
 }
@@ -1905,7 +1904,7 @@ find_sym_in_symtree (gfc_symbol *sym)
   if (st && st->n.sym == sym)
     return st;
 
-  /* if it's been renamed, resort to a brute-force search.  */
+  /* If it's been renamed, resort to a brute-force search.  */
   /* TODO: avoid having to do this search.  If the symbol doesn't exist
      in the symtree for the current namespace, it should probably be added.  */
   for (ns = gfc_current_ns; ns; ns = ns->parent)
@@ -1915,7 +1914,7 @@ find_sym_in_symtree (gfc_symbol *sym)
 	return st;
     }
   gfc_internal_error ("Unable to find symbol %s", sym->name);
-  /* Not reached */
+  /* Not reached.  */
 }
 
 
@@ -1974,7 +1973,7 @@ gfc_extend_expr (gfc_expr *e)
 
   if (sym == NULL)
     {
-      /* Don't use gfc_free_actual_arglist() */
+      /* Don't use gfc_free_actual_arglist().  */
       if (actual->next != NULL)
 	gfc_free (actual->next);
       gfc_free (actual);
@@ -2063,7 +2062,7 @@ gfc_extend_assign (gfc_code *c, gfc_namespace *ns)
    procedures can be present without interfaces.  */
 
 static try
-check_new_interface (gfc_interface * base, gfc_symbol * new)
+check_new_interface (gfc_interface *base, gfc_symbol *new)
 {
   gfc_interface *ip;