A somewhat trivial patch to cleanup whitespace issues in comments: sed "s/\. \*\//\. \*\//g"
Tested with a recompile only. Ok for trunk ?
gcc/fortran/ChangeLog: 2014-09-20 Joost VandeVondele <vond...@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.
Index: gcc/fortran/trans-expr.c =================================================================== --- gcc/fortran/trans-expr.c (revision 215323) +++ gcc/fortran/trans-expr.c (working copy) @@ -231,7 +231,7 @@ gfc_reset_vptr (stmtblock_t *block, gfc_ gfc_ref *ref; /* If we have a class array, we need go back to the class - container. */ + container. */ if (lhs->ref && lhs->ref->next && !lhs->ref->next->next && lhs->ref->next->type == REF_ARRAY && lhs->ref->next->u.ar.type == AR_FULL @@ -729,7 +729,7 @@ gfc_conv_class_to_class (gfc_se *parmse, ctree = gfc_class_vptr_get (var); /* The vptr is the second field of the actual argument. - First we have to find the corresponding class reference. */ + First we have to find the corresponding class reference. */ tmp = NULL_TREE; if (class_ref == NULL @@ -4953,7 +4953,7 @@ gfc_conv_procedure_call (gfc_se * se, gf && CLASS_DATA (fsym)->attr.codimension && !CLASS_DATA (fsym)->attr.allocatable))) { - /* Token and offset. */ + /* Token and offset. */ vec_safe_push (stringargs, null_pointer_node); vec_safe_push (stringargs, build_int_cst (gfc_array_index_type, 0)); gcc_assert (fsym->attr.optional); @@ -7391,7 +7391,7 @@ arrayfunc_assign_needs_temporary (gfc_ex { /* A temporary is not needed if the function is not contained and the variable is local or host associated and not a pointer or - a target. */ + a target. */ if (!expr2->value.function.esym->attr.contained) return false; @@ -7420,7 +7420,7 @@ realloc_lhs_loop_for_fcn_call (gfc_se *s gfc_loopinfo *loop) { /* Signal that the function call should not be made by - gfc_conv_loop_setup. */ + gfc_conv_loop_setup. */ se->ss->is_alloc_lhs = 1; gfc_init_loopinfo (loop); gfc_add_ss_to_loop (loop, *ss); @@ -8252,7 +8252,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1 the function call must happen before the (re)allocation of the lhs - otherwise the character length of the result is not known. NOTE: This relies on having the exact dependence of the length type - parameter available to the caller; gfortran saves it in the .mod files. */ + parameter available to the caller; gfortran saves it in the .mod files. */ if (gfc_option.flag_realloc_lhs && expr2->ts.type == BT_CHARACTER && expr1->ts.deferred) gfc_add_block_to_block (&block, &rse.pre); Index: gcc/fortran/trans-array.c =================================================================== --- gcc/fortran/trans-array.c (revision 215323) +++ gcc/fortran/trans-array.c (working copy) @@ -3178,7 +3178,7 @@ gfc_conv_array_ref (gfc_se * se, gfc_arr && TREE_CODE (TREE_TYPE (se->expr)) == POINTER_TYPE) se->expr = build_fold_indirect_ref_loc (input_location, se->expr); - /* Use the actual tree type and not the wrapped coarray. */ + /* Use the actual tree type and not the wrapped coarray. */ if (!se->want_pointer) se->expr = fold_convert (TYPE_MAIN_VARIANT (TREE_TYPE (se->expr)), se->expr); @@ -5300,7 +5300,7 @@ gfc_array_allocate (gfc_se * se, gfc_exp gfc_add_expr_to_block (&se->pre, tmp); - /* Update the array descriptors. */ + /* Update the array descriptors. */ if (dimension) gfc_conv_descriptor_offset_set (&set_descriptor_block, se->expr, offset); @@ -8478,7 +8478,7 @@ gfc_alloc_allocatable_for_assignment (gf size2 = gfc_evaluate_now (size2, &fblock); /* Realloc expression. Note that the scalarizer uses desc.data - in the array reference - (*desc.data)[<element>]. */ + in the array reference - (*desc.data)[<element>]. */ gfc_init_block (&realloc_block); if ((expr1->ts.type == BT_DERIVED) Index: gcc/fortran/symbol.c =================================================================== --- gcc/fortran/symbol.c (revision 215323) +++ gcc/fortran/symbol.c (working copy) @@ -4207,7 +4207,7 @@ generate_isocbinding_symbol (const char || tmp_symtree->n.sym->intmod_sym_id != s)) tmp_symtree = NULL; - /* Already exists in this scope so don't re-add it. */ + /* Already exists in this scope so don't re-add it. */ if (tmp_symtree != NULL && (tmp_sym = tmp_symtree->n.sym) != NULL && (!tmp_sym->attr.generic || (tmp_sym = gfc_find_dt_in_generic (tmp_sym)) != NULL) Index: gcc/fortran/class.c =================================================================== --- gcc/fortran/class.c (revision 215323) +++ gcc/fortran/class.c (working copy) @@ -975,7 +975,7 @@ finalization_scalarizer (gfc_symbol *arr 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 * 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_symbo 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_symbo 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_symbo 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_symbo 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_symbo 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; Index: gcc/fortran/decl.c =================================================================== --- gcc/fortran/decl.c (revision 215323) +++ gcc/fortran/decl.c (working copy) @@ -3238,7 +3238,7 @@ gfc_match_import (void) { /* The actual derived type is stored in a symtree with the first letter of the name capitalized; the symtree with the all - lower-case name contains the associated generic function. */ + lower-case name contains the associated generic function. */ st = gfc_new_symtree (&gfc_current_ns->sym_root, gfc_get_string ("%c%s", (char) TOUPPER ((unsigned char) name[0]), @@ -4857,7 +4857,7 @@ match_procedure_decl (void) int num; gfc_expr *initializer = NULL; - /* Parse interface (with brackets). */ + /* Parse interface (with brackets). */ m = match_procedure_interface (&proc_if); if (m != MATCH_YES) return m; @@ -5698,7 +5698,7 @@ gfc_match_subroutine (void) return MATCH_ERROR; /* Set declared_at as it might point to, e.g., a PUBLIC statement, if - the symbol existed before. */ + the symbol existed before. */ sym->declared_at = gfc_current_locus; if (add_hidden_procptr_result (sym)) @@ -5943,7 +5943,7 @@ gfc_match_bind_c (gfc_symbol *sym, bool /* No binding label, but if symbol isn't null, we can set the label for it here. If name="" or allow_binding_name is false, no C binding name is - created. */ + created. */ if (sym != NULL && sym->name != NULL && has_name_equals == 0) sym->binding_label = IDENTIFIER_POINTER (get_identifier (sym->name)); } @@ -7233,7 +7233,7 @@ gfc_match_volatile (void) for(;;) { /* VOLATILE is special because it can be added to host-associated - symbols locally. Except for coarrays. */ + symbols locally. Except for coarrays. */ m = gfc_match_symbol (&sym, 1); switch (m) { Index: gcc/fortran/trans-common.c =================================================================== --- gcc/fortran/trans-common.c (revision 215323) +++ gcc/fortran/trans-common.c (working copy) @@ -708,7 +708,7 @@ create_common (gfc_common_head *com, seg DECL_IGNORED_P (var_decl) = 1; if (s->sym->attr.target) TREE_ADDRESSABLE (var_decl) = 1; - /* Fake variables are not visible from other translation units. */ + /* Fake variables are not visible from other translation units. */ TREE_PUBLIC (var_decl) = 0; gfc_finish_decl_attrs (var_decl, &s->sym->attr); Index: gcc/fortran/error.c =================================================================== --- gcc/fortran/error.c (revision 215323) +++ gcc/fortran/error.c (working copy) @@ -1031,7 +1031,7 @@ gfc_diagnostic_starter (diagnostic_conte { pp_newline (context->printer); /* If the caret line was shown, the prefix does not contain the - locus. */ + locus. */ pp_set_prefix (context->printer, prefix); } else Index: gcc/fortran/trans-stmt.c =================================================================== --- gcc/fortran/trans-stmt.c (revision 215323) +++ gcc/fortran/trans-stmt.c (working copy) @@ -773,7 +773,7 @@ gfc_trans_sync (gfc_code *code, gfc_exec } /* Check SYNC IMAGES(imageset) for valid image index. - FIXME: Add a check for image-set arrays. */ + FIXME: Add a check for image-set arrays. */ if (code->expr1 && (gfc_option.rtcheck & GFC_RTCHECK_BOUNDS) && code->expr1->rank == 0) { @@ -1106,7 +1106,7 @@ gfc_trans_arithmetic_if (gfc_code * code } -/* Translate a CRITICAL block. */ +/* Translate a CRITICAL block. */ tree gfc_trans_critical (gfc_code *code) { @@ -1431,7 +1431,7 @@ gfc_trans_simple_do (gfc_code * code, st gfc_add_modify_loc (loc, pblock, dovar, fold_convert (TREE_TYPE(dovar), from)); - /* Save value for do-tinkering checking. */ + /* Save value for do-tinkering checking. */ if (gfc_option.rtcheck & GFC_RTCHECK_DO) { saved_dovar = gfc_create_var (type, ".saved_dovar"); @@ -1460,7 +1460,7 @@ gfc_trans_simple_do (gfc_code * code, st gfc_add_expr_to_block (&body, tmp); } - /* Check whether someone has modified the loop variable. */ + /* Check whether someone has modified the loop variable. */ if (gfc_option.rtcheck & GFC_RTCHECK_DO) { tmp = fold_build2_loc (loc, NE_EXPR, boolean_type_node, @@ -1634,7 +1634,7 @@ gfc_trans_do (gfc_code * code, tree exit /* Initialize the DO variable: dovar = from. */ gfc_add_modify (&block, dovar, from); - /* Save value for do-tinkering checking. */ + /* Save value for do-tinkering checking. */ if (gfc_option.rtcheck & GFC_RTCHECK_DO) { saved_dovar = gfc_create_var (type, ".saved_dovar"); @@ -1743,7 +1743,7 @@ gfc_trans_do (gfc_code * code, tree exit gfc_add_expr_to_block (&body, tmp); } - /* Check whether someone has modified the loop variable. */ + /* Check whether someone has modified the loop variable. */ if (gfc_option.rtcheck & GFC_RTCHECK_DO) { tmp = fold_build2_loc (loc, NE_EXPR, boolean_type_node, dovar, @@ -4176,7 +4176,7 @@ gfc_trans_where_assign (gfc_expr *expr1, stmtblock_t body; tree index, maskexpr; - /* A defined assignment. */ + /* A defined assignment. */ if (cnext && cnext->resolved_sym) return gfc_trans_call (cnext, true, mask, count1, invert); Index: gcc/fortran/expr.c =================================================================== --- gcc/fortran/expr.c (revision 215323) +++ gcc/fortran/expr.c (working copy) @@ -4560,7 +4560,7 @@ gfc_is_simply_contiguous (gfc_expr *expr for (ref = expr->ref; ref; ref = ref->next) { if (ar) - return false; /* Array shall be last part-ref. */ + return false; /* Array shall be last part-ref. */ if (ref->type == REF_COMPONENT) part_ref = ref; Index: gcc/fortran/module.c =================================================================== --- gcc/fortran/module.c (revision 215323) +++ gcc/fortran/module.c (working copy) @@ -1758,7 +1758,7 @@ unquote_string (const char *s) if (p[1] == '\\') p++; else if (p[1] == 'U') - p += 9; /* That is a "\U????????". */ + p += 9; /* That is a "\U????????". */ else gfc_internal_error ("unquote_string(): got bad string"); } @@ -6329,7 +6329,7 @@ import_iso_c_binding_module (void) break; #include "iso-c-binding.def" default: - ; /* Not GFC_STD_* versioned. */ + ; /* Not GFC_STD_* versioned. */ } switch (i) @@ -6891,7 +6891,7 @@ gfc_use_module (gfc_use_list *module) } -/* Remove duplicated intrinsic operators from the rename list. */ +/* Remove duplicated intrinsic operators from the rename list. */ static void rename_list_remove_duplicate (gfc_use_rename *list) Index: gcc/fortran/trans.c =================================================================== --- gcc/fortran/trans.c (revision 215323) +++ gcc/fortran/trans.c (working copy) @@ -1085,7 +1085,7 @@ gfc_add_finalizer_call (stmtblock_t *blo } /* If we have a class array, we need go back to the class - container. */ + container. */ expr = gfc_copy_expr (expr2); if (expr->ref && expr->ref->next && !expr->ref->next->next Index: gcc/fortran/trans-types.c =================================================================== --- gcc/fortran/trans-types.c (revision 215323) +++ gcc/fortran/trans-types.c (working copy) @@ -610,7 +610,7 @@ gfc_init_kinds (void) /* We only have two character kinds: ASCII and UCS-4. ASCII corresponds to a 8-bit integer type, if one is available. - UCS-4 corresponds to a 32-bit integer type, if one is available. */ + UCS-4 corresponds to a 32-bit integer type, if one is available. */ i_index = 0; if ((kind = get_int_kind_from_width (8)) > 0) { Index: gcc/fortran/scanner.c =================================================================== --- gcc/fortran/scanner.c (revision 215323) +++ gcc/fortran/scanner.c (working copy) @@ -1788,7 +1788,7 @@ preprocessor_line (gfc_char_t *c) { /* FIXME: we leak the old filename because a pointer to it may be stored in the linemap. Alternative could be using GC or updating linemap to - point to the new name, but there is no API for that currently. */ + point to the new name, but there is no API for that currently. */ current_file->filename = xstrdup (filename); } Index: gcc/fortran/gfortranspec.c =================================================================== --- gcc/fortran/gfortranspec.c (revision 215323) +++ gcc/fortran/gfortranspec.c (working copy) @@ -198,7 +198,7 @@ lang_specific_driver (struct cl_decoded_ /* By default, we throw on the math library if we have one. */ int need_math = (MATH_LIBRARY[0] != '\0'); - /* Whether we should link a static libgfortran. */ + /* Whether we should link a static libgfortran. */ int static_lib = 0; /* Whether we need to link statically. */ Index: gcc/fortran/frontend-passes.c =================================================================== --- gcc/fortran/frontend-passes.c (revision 215323) +++ gcc/fortran/frontend-passes.c (working copy) @@ -91,7 +91,7 @@ struct my_struct *evec; static bool in_assoc_list; -/* Entry point - run all passes for a namespace. */ +/* Entry point - run all passes for a namespace. */ void gfc_run_passes (gfc_namespace *ns) @@ -500,7 +500,7 @@ create_var (gfc_expr * e) if (e->shape == NULL) { /* We don't know the shape at compile time, so we use an - allocatable. */ + allocatable. */ symbol->as->type = AS_DEFERRED; symbol->attr.allocatable = 1; } @@ -589,7 +589,7 @@ cfe_expr_0 (gfc_expr **e, int *walk_subt gfc_expr *newvar; gfc_expr **ei, **ej; - /* Don't do this optimization within OMP workshare. */ + /* Don't do this optimization within OMP workshare. */ if (in_omp_workshare) { Index: gcc/fortran/resolve.c =================================================================== --- gcc/fortran/resolve.c (revision 215323) +++ gcc/fortran/resolve.c (working copy) @@ -5114,7 +5114,7 @@ check_host_association (gfc_expr *e) { /* Original was function so point to the new symbol, since the actual argument list is already attached to the - expression. */ + expression. */ e->value.function.esym = NULL; e->symtree = st; } @@ -10017,7 +10017,7 @@ gfc_resolve_code (gfc_code *code, gfc_na break; /* Remove a GFC_ISYM_CAF_GET inserted for a coindexed variable on - the LHS. */ + the LHS. */ if (code->expr1->expr_type == EXPR_FUNCTION && code->expr1->value.function.isym && code->expr1->value.function.isym->id == GFC_ISYM_CAF_GET) @@ -12314,7 +12314,7 @@ resolve_fl_derived0 (gfc_symbol *sym) super_type = gfc_get_derived_super_type (sym); - /* F2008, C432. */ + /* F2008, C432. */ if (super_type && sym->attr.coarray_comp && !super_type->attr.coarray_comp) { gfc_error ("As extending type '%s' at %L has a coarray component, " @@ -13124,7 +13124,7 @@ resolve_symbol (gfc_symbol *sym) as = sym->as; } - /* F2008, C530. */ + /* F2008, C530. */ if (sym->attr.contiguous && (!class_attr.dimension || (as->type != AS_ASSUMED_SHAPE && as->type != AS_ASSUMED_RANK Index: gcc/fortran/f95-lang.c =================================================================== --- gcc/fortran/f95-lang.c (revision 215323) +++ gcc/fortran/f95-lang.c (working copy) @@ -342,7 +342,7 @@ getdecls (void) return current_binding_level->names; } -/* Enter a new binding level. */ +/* Enter a new binding level. */ void pushlevel (void) @@ -410,7 +410,7 @@ poplevel (int keep, int functionbody) current_binding_level = current_binding_level->level_chain; if (functionbody) - /* This is the top level block of a function. */ + /* This is the top level block of a function. */ DECL_INITIAL (current_function_decl) = block_node; else if (current_binding_level == global_binding_level) /* When using gfc_start_block/gfc_finish_block from middle-end hooks, Index: gcc/fortran/trans-decl.c =================================================================== --- gcc/fortran/trans-decl.c (revision 215323) +++ gcc/fortran/trans-decl.c (working copy) @@ -3651,7 +3651,7 @@ gfc_init_default_dt (gfc_symbol * sym, s /* Initialize INTENT(OUT) derived type dummies. As well as giving them their default initializer, if they do not have allocatable - components, they have their allocatable components deallocated. */ + components, they have their allocatable components deallocated. */ static void init_intent_out_dt (gfc_symbol * proc_sym, gfc_wrapped_block * block) @@ -5350,7 +5350,7 @@ create_main_function (tree fndecl) gfc_init_block (&body); - /* Call some libgfortran initialization routines, call then MAIN__(). */ + /* Call some libgfortran initialization routines, call then MAIN__(). */ /* Call _gfortran_caf_init (*argc, ***argv). */ if (gfc_option.coarray == GFC_FCOARRAY_LIB) @@ -5413,7 +5413,7 @@ create_main_function (tree fndecl) /* TODO: This is the -frange-check option, which no longer affects library behavior; when bumping the library ABI this slot can be reused for something else. As it is the last element in the - array, we can instead leave it out altogether. */ + array, we can instead leave it out altogether. */ CONSTRUCTOR_APPEND_ELT (v, NULL_TREE, build_int_cst (integer_type_node, 0)); CONSTRUCTOR_APPEND_ELT (v, NULL_TREE, Index: gcc/fortran/trans-io.c =================================================================== --- gcc/fortran/trans-io.c (revision 215323) +++ gcc/fortran/trans-io.c (working copy) @@ -2135,7 +2135,7 @@ transfer_expr (gfc_se * se, gfc_typespec gfc_add_block_to_block (&se->pre, &se->post); return; } - /* Fall through. */ + /* Fall through. */ case BT_HOLLERITH: if (se->string_length) arg2 = se->string_length; Index: gcc/fortran/arith.c =================================================================== --- gcc/fortran/arith.c (revision 215323) +++ gcc/fortran/arith.c (working copy) @@ -758,7 +758,7 @@ gfc_arith_divide (gfc_expr *op1, gfc_exp if (mpc_cmp_si_si (op2->value.complex, 0, 0) == 0) { /* In Fortran, return (NaN + NaN I) for any zero divisor. See - PR 40318. */ + PR 40318. */ mpfr_set_nan (mpc_realref (result->value.complex)); mpfr_set_nan (mpc_imagref (result->value.complex)); } @@ -2344,7 +2344,7 @@ gfc_hollerith2complex (gfc_expr *src, in } -/* Convert Hollerith to character. */ +/* Convert Hollerith to character. */ gfc_expr * gfc_hollerith2character (gfc_expr *src, int kind) Index: gcc/fortran/parse.c =================================================================== --- gcc/fortran/parse.c (revision 215323) +++ gcc/fortran/parse.c (working copy) @@ -3085,7 +3085,7 @@ declSt: break; } - /* If match_deferred_characteristics failed, then there is an error. */ + /* If match_deferred_characteristics failed, then there is an error. */ if (bad_characteristic) { ts = &gfc_current_block ()->result->ts; @@ -4869,7 +4869,7 @@ add_global_program (void) } -/* Resolve all the program units. */ +/* Resolve all the program units. */ static void resolve_all_program_units (gfc_namespace *gfc_global_ns_list) { Index: gcc/fortran/check.c =================================================================== --- gcc/fortran/check.c (revision 215323) +++ gcc/fortran/check.c (working copy) @@ -3357,7 +3357,7 @@ gfc_check_rank (gfc_expr *a ATTRIBUTE_UN bool is_variable = true; - /* Functions returning pointers are regarded as variable, cf. F2008, R602. */ + /* Functions returning pointers are regarded as variable, cf. F2008, R602. */ if (a->expr_type == EXPR_FUNCTION) is_variable = a->value.function.esym ? a->value.function.esym->result->attr.pointer @@ -3936,7 +3936,7 @@ gfc_check_sizeof (gfc_expr *arg) If c_loc is true, character with len > 1 are allowed (cf. Fortran 2003corr5); additionally, assumed-shape/assumed-rank/deferred-shape arrays are permitted. And if c_f_ptr is true, deferred-shape arrays - are permitted. */ + are permitted. */ static bool is_c_interoperable (gfc_expr *expr, const char **msg, bool c_loc, bool c_f_ptr) @@ -3983,7 +3983,7 @@ is_c_interoperable (gfc_expr *expr, cons if (expr->ts.deferred) { /* TS 29113 allows deferred-length strings as dummy arguments, - but it is not an interoperable type. */ + but it is not an interoperable type. */ *msg = "Expression shall not be a deferred-length string"; return false; } Index: gcc/fortran/dependency.c =================================================================== --- gcc/fortran/dependency.c (revision 215323) +++ gcc/fortran/dependency.c (working copy) @@ -542,7 +542,7 @@ gfc_dep_difference (gfc_expr *e1, gfc_ex return true; } - /* Case 3: (c1 + X) - X = c1. */ + /* Case 3: (c1 + X) - X = c1. */ if (e1_op1->expr_type == EXPR_CONSTANT && gfc_dep_compare_expr (e1_op2, e2) == 0) { @@ -1555,7 +1555,7 @@ check_section_vs_section (gfc_array_ref #undef IS_CONSTANT_INTEGER - /* Check for forward dependencies x:y vs. x+1:z and x:y:z vs. x:y:z+1. */ + /* Check for forward dependencies x:y vs. x+1:z and x:y:z vs. x:y:z+1. */ if (l_dir == 1 && r_dir == 1 && (start_comparison == 0 || start_comparison == -1) Index: gcc/fortran/primary.c =================================================================== --- gcc/fortran/primary.c (revision 215323) +++ gcc/fortran/primary.c (working copy) @@ -2839,7 +2839,7 @@ gfc_match_rvalue (gfc_expr **result) procedure, yet it is not sure to be the name of a function. */ case FL_PROCEDURE: - /* Procedure Pointer Assignments. */ + /* Procedure Pointer Assignments. */ procptr0: if (gfc_matching_procptr_assignment) { Index: gcc/fortran/trans-intrinsic.c =================================================================== --- gcc/fortran/trans-intrinsic.c (revision 215323) +++ gcc/fortran/trans-intrinsic.c (working copy) @@ -2696,7 +2696,7 @@ conv_intrinsic_system_clock (gfc_code *c else if (count_max) arg3 = count_max_se.expr; - /* Make the function call. */ + /* Make the function call. */ gfc_init_block (&block); tmp = build_call_expr_loc (input_location, kind == 4 ? gfor_fndecl_system_clock4 @@ -7134,7 +7134,7 @@ conv_isocbinding_subroutine (gfc_code *c dim = fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type, loop.loopvar[0], loop.from[0]); - /* Set bounds and stride. */ + /* Set bounds and stride. */ gfc_conv_descriptor_lbound_set (&body, desc, dim, gfc_index_one_node); gfc_conv_descriptor_stride_set (&body, desc, dim, stride); @@ -7143,7 +7143,7 @@ conv_isocbinding_subroutine (gfc_code *c gfc_conv_descriptor_ubound_set (&body, desc, dim, shapese.expr); gfc_add_block_to_block (&body, &shapese.post); - /* Calculate offset. */ + /* Calculate offset. */ gfc_add_modify (&body, offset, fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type, offset, stride)); Index: gcc/fortran/options.c =================================================================== --- gcc/fortran/options.c (revision 215323) +++ gcc/fortran/options.c (working copy) @@ -72,7 +72,7 @@ gfc_init_options_struct (struct gcc_opti } /* Get ready for options handling. Keep in sync with - libgfortran/runtime/compile_options.c (init_compile_options). */ + libgfortran/runtime/compile_options.c (init_compile_options). */ void gfc_init_options (unsigned int decoded_options_count, @@ -284,7 +284,7 @@ gfc_post_options (const char **pfilename gfc_option.flag_stack_arrays = optimize_fast; /* By default, disable (re)allocation during assignment for -std=f95, - and enable it for F2003/F2008/GNU/Legacy. */ + and enable it for F2003/F2008/GNU/Legacy. */ if (gfc_option.flag_realloc_lhs == -1) { if (gfc_option.allow_std & GFC_STD_F2003) @@ -511,7 +511,7 @@ gfc_handle_fpe_option (const char *arg, GFC_FPE_INEXACT, 0 }; - /* As the default for -ffpe-summary= is nonzero, set it to 0. */ + /* As the default for -ffpe-summary= is nonzero, set it to 0. */ if (!trap) gfc_option.fpe_summary = 0; @@ -1189,7 +1189,7 @@ gfc_get_option_string (void) /* Ignore these. */ break; default: - /* Ignore file names. */ + /* Ignore file names. */ if (save_decoded_options[j].orig_option_with_args_text[0] == '-') len += 1 + strlen (save_decoded_options[j].orig_option_with_args_text); @@ -1221,7 +1221,7 @@ gfc_get_option_string (void) break; default: - /* Ignore file names. */ + /* Ignore file names. */ if (save_decoded_options[j].orig_option_with_args_text[0] != '-') continue; Index: gcc/fortran/simplify.c =================================================================== --- gcc/fortran/simplify.c (revision 215323) +++ gcc/fortran/simplify.c (working copy) @@ -391,7 +391,7 @@ compute_dot_product (gfc_expr *matrix_a, /* Build a result expression for transformational intrinsics, - depending on DIM. */ + depending on DIM. */ static gfc_expr * transformational_result (gfc_expr *array, gfc_expr *dim, bt type, @@ -501,7 +501,8 @@ simplify_transformation_to_scalar (gfc_e REAL, PARAMETER :: array(n, m) = ... REAL, PARAMETER :: s(n) = PROD(array, DIM=1) - where OP == gfc_multiply(). The result might be post processed using post_op. */ + where OP == gfc_multiply(). + The result might be post processed using post_op. */ static gfc_expr * simplify_transformation_to_array (gfc_expr *result, gfc_expr *array, gfc_expr *dim, @@ -6096,7 +6097,7 @@ gfc_simplify_spread (gfc_expr *source, g else /* FIXME: Returning here avoids a regression in array_simplify_1.f90. Replace NULL with gcc_unreachable() after implementing - gfc_simplify_cshift(). */ + gfc_simplify_cshift(). */ return NULL; if (source->ts.type == BT_CHARACTER)