arith.c, [...]: Fix comment formatting.

	* arith.c, array.c, decl.c, expr.c, f95-lang.c, gfortran.h,
	gfortranspec.c, interface.c, intrinsic.c, iresolve.c, match.c,
	module.c, parse.c, parse.h, primary.c, resolve.c, scanner.c,
	trans-array.c, trans-array.h, trans-expr.c, trans-intrinsic.c,
	trans-io.c, trans-stmt.c, trans.h: Fix comment formatting.

From-SVN: r90266

1 files changed, 7 insertions, 7 deletions

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index d36155d..6380bcf 100644
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -1040,7 +1040,7 @@ get_array_ctor_var_strlen (gfc_expr * expr, tree * len)
 	  break;
 
 	case COMPONENT_REF:
-	  /* Use the length of the component. */
+	  /* Use the length of the component.  */
 	  ts = &ref->u.c.component->ts;
 	  break;
 
@@ -2025,7 +2025,7 @@ gfc_conv_section_upper_bound (gfc_ss * ss, int n, stmtblock_t * pblock)
     }
   else
     {
-      /* No upper bound was specified, so use the bound of the array. */
+      /* No upper bound was specified, so use the bound of the array.  */
       bound = gfc_conv_array_ubound (desc, dim);
     }
 
@@ -2396,7 +2396,7 @@ gfc_conv_resolve_dependencies (gfc_loopinfo * loop, gfc_ss * dest,
    the range of the loop variables.  Creates a temporary if required.
    Calculates how to transform from loop variables to array indices for each
    expression.  Also generates code for scalar expressions which have been
-   moved outside the loop. */
+   moved outside the loop.  */
 
 void
 gfc_conv_loop_setup (gfc_loopinfo * loop)
@@ -2436,7 +2436,7 @@ gfc_conv_loop_setup (gfc_loopinfo * loop)
 	      /* Try to figure out the size of the constructor.  */
 	      /* TODO: avoid this by making the frontend set the shape.  */
 	      gfc_get_array_cons_size (&i, ss->expr->value.constructor);
-	      /* A negative value means we failed. */
+	      /* A negative value means we failed.  */
 	      if (mpz_sgn (i) > 0)
 		{
 		  mpz_sub_ui (i, i, 1);
@@ -2997,7 +2997,7 @@ gfc_trans_array_bounds (tree type, gfc_symbol * sym, tree * poffset,
           gfc_add_block_to_block (pblock, &se.pre);
           gfc_add_modify_expr (pblock, ubound, se.expr);
         }
-      /* The offset of this dimension.  offset = offset - lbound * stride. */
+      /* The offset of this dimension.  offset = offset - lbound * stride.  */
       tmp = fold (build2 (MULT_EXPR, gfc_array_index_type, lbound, size));
       offset = fold (build2 (MINUS_EXPR, gfc_array_index_type, offset, tmp));
 
@@ -3361,7 +3361,7 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, tree body)
           tmp = fold (build2 (PLUS_EXPR, gfc_array_index_type, tmp, lbound));
           gfc_add_modify_expr (&block, ubound, tmp);
 	}
-      /* The offset of this dimension.  offset = offset - lbound * stride. */
+      /* The offset of this dimension.  offset = offset - lbound * stride.  */
       tmp = fold (build2 (MULT_EXPR, gfc_array_index_type, lbound, stride));
       offset = fold (build2 (MINUS_EXPR, gfc_array_index_type, offset, tmp));
 
@@ -4208,7 +4208,7 @@ gfc_walk_op_expr (gfc_ss * ss, gfc_expr * expr)
   if (head2 == ss)
     return head2;
 
-  /* All operands require scalarization. */
+  /* All operands require scalarization.  */
   if (head != ss && (expr->op2 == NULL || head2 != head))
     return head2;