trans-expr.c (gfc_reset_vptr): Fix comment whitespace.

2014-09-20  Joost VandeVondele  <vondele@gcc.gnu.org>

	* trans-expr.c (gfc_reset_vptr): Fix comment whitespace.
	(gfc_conv_class_to_class): Likewise.
	(gfc_conv_procedure_call): Likewise.
	(arrayfunc_assign_needs_temporary): Likewise.
	(realloc_lhs_loop_for_fcn_call): Likewise.
	(gfc_trans_assignment_1): Likewise.
	* trans-array.c (gfc_conv_array_ref): Likewise.
	(gfc_array_allocate): Likewise.
	(gfc_alloc_allocatable_for_assignment): Likewise.
	* symbol.c (generate_isocbinding_symbol): Likewise.
	* class.c (finalization_scalarizer): Likewise.
	(finalizer_insert_packed_call): Likewise.
	(generate_finalization_wrapper): Likewise.
	(find_intrinsic_vtab): Likewise.
	* decl.c (gfc_match_import): Likewise.
	(match_procedure_decl): Likewise.
	(gfc_match_subroutine): Likewise.
	(gfc_match_bind_c): Likewise.
	(gfc_match_volatile): Likewise.
	* trans-common.c (create_common): Likewise.
	* error.c (gfc_diagnostic_starter): Likewise.
	* trans-stmt.c (gfc_trans_sync): Likewise.
	(gfc_trans_critical): Likewise.
	(gfc_trans_simple_do): Likewise.
	(gfc_trans_do): Likewise.
	(gfc_trans_where_assign): Likewise.
	* expr.c (gfc_is_simply_contiguous): Likewise.
	* module.c (unquote_string): Likewise.
	* trans.c (gfc_add_finalizer_call): Likewise.
	* trans-types.c (gfc_init_kinds): Likewise.
	* scanner.c (preprocessor_line): Likewise.
	* gfortranspec.c (lang_specific_driver): Likewise.
	* frontend-passes.c (create_var): Likewise.
	(cfe_expr_0): Likewise.
	* resolve.c (check_host_association): Likewise.
	(gfc_resolve_code): Likewise.
	(resolve_fl_derived0): Likewise.
	(resolve_symbol): Likewise.
	* f95-lang.c (poplevel): Likewise.
	* trans-decl.c (create_main_function): Likewise.
	* trans-io.c (transfer_expr): Likewise.
	* arith.c (gfc_arith_divide): Likewise.
	* parse.c (resolve_all_program_units): Likewise.
	* check.c (gfc_check_rank): Likewise.
	(gfc_check_sizeof): Likewise.
	(is_c_interoperable): Likewise.
	* dependency.c (gfc_dep_difference): Likewise.
	* primary.c (gfc_match_rvalue): Likewise.
	* trans-intrinsic.c (conv_intrinsic_system_clock): Likewise.
	(conv_isocbinding_subroutine): Likewise.
	* options.c (gfc_post_options): Likewise.
	(gfc_handle_fpe_option): Likewise.
	(gfc_get_option_string): Likewise.
	* simplify.c (simplify_transformation_to_scalar): Likewise.
	(gfc_simplify_spread): Likewise.

From-SVN: r215420

1 files changed, 9 insertions, 9 deletions

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 346aee6..0286c9e 100644
--- a/gcc/fortran/class.c
+++ b/gcc/fortran/class.c
@@ -975,7 +975,7 @@ finalization_scalarizer (gfc_symbol *array, gfc_symbol *ptr,
   block->ext.actual->next = gfc_get_actual_arglist ();
   block->ext.actual->next->expr = gfc_get_int_expr (gfc_index_integer_kind,
 						    NULL, 0);
-  block->ext.actual->next->next = gfc_get_actual_arglist (); /* SIZE. */
+  block->ext.actual->next->next = gfc_get_actual_arglist (); /* SIZE.  */
 
   /* The <addr> part: TRANSFER (C_LOC (array), c_intptr_t).  */
 
@@ -1363,7 +1363,7 @@ finalizer_insert_packed_call (gfc_code *block, gfc_finalizer *fini,
   block2->expr1 = gfc_lval_expr_from_sym (ptr2);
   block2->expr2 = gfc_lval_expr_from_sym (ptr);
 
-  /* Call now the user's final subroutine. */
+  /* Call now the user's final subroutine.  */
   block->next  = gfc_get_code (EXEC_CALL);
   block = block->next;
   block->symtree = fini->proc_tree;
@@ -1447,7 +1447,7 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
       return;
     }
 
-  /* Search for the ancestor's finalizers. */
+  /* Search for the ancestor's finalizers.  */
   if (derived->attr.extension && derived->components
       && (!derived->components->ts.u.derived->attr.abstract
 	  || has_finalizer_component (derived)))
@@ -1504,7 +1504,7 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
      3. Call the ancestor's finalizer.  */
 
   /* Declare the wrapper function; it takes an assumed-rank array
-     and a VALUE logical as arguments. */
+     and a VALUE logical as arguments.  */
 
   /* Set up the namespace.  */
   sub_ns = gfc_get_namespace (ns, 0);
@@ -1706,7 +1706,7 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
   last_code->ext.iterator = iter;
   last_code->block = gfc_get_code (EXEC_DO);
 
-  /* strides(idx) = _F._stride(array,dim=idx). */
+  /* strides(idx) = _F._stride(array,dim=idx).  */
   last_code->block->next = gfc_get_code (EXEC_ASSIGN);
   block = last_code->block->next;
 
@@ -1724,11 +1724,11 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
 					   gfc_lval_expr_from_sym (array),
 					   gfc_lval_expr_from_sym (idx));
 
-  /* sizes(idx) = sizes(idx-1) * size(array,dim=idx, kind=index_kind). */
+  /* sizes(idx) = sizes(idx-1) * size(array,dim=idx, kind=index_kind).  */
   block->next = gfc_get_code (EXEC_ASSIGN);
   block = block->next;
 
-  /* sizes(idx) = ... */
+  /* sizes(idx) = ...  */
   block->expr1 = gfc_lval_expr_from_sym (sizes);
   block->expr1->ref = gfc_get_ref ();
   block->expr1->ref->type = REF_ARRAY;
@@ -1742,7 +1742,7 @@ generate_finalization_wrapper (gfc_symbol *derived, gfc_namespace *ns,
   block->expr2->expr_type = EXPR_OP;
   block->expr2->value.op.op = INTRINSIC_TIMES;
 
-  /* sizes(idx-1). */
+  /* sizes(idx-1).  */
   block->expr2->value.op.op1 = gfc_lval_expr_from_sym (sizes);
   block->expr2->value.op.op1->ref = gfc_get_ref ();
   block->expr2->value.op.op1->ref->type = REF_ARRAY;
@@ -2499,7 +2499,7 @@ find_intrinsic_vtab (gfc_typespec *ts)
 	      c->attr.access = ACCESS_PRIVATE;
 
 	      /* Build a minimal expression to make use of
-		 target-memory.c/gfc_element_size for 'size'. */
+		 target-memory.c/gfc_element_size for 'size'.  */
 	      e = gfc_get_expr ();
 	      e->ts = *ts;
 	      e->expr_type = EXPR_VARIABLE;