diff options
-rw-r--r-- | gcc/fortran/ChangeLog | 58 | ||||
-rw-r--r-- | gcc/fortran/arith.c | 4 | ||||
-rw-r--r-- | gcc/fortran/check.c | 6 | ||||
-rw-r--r-- | gcc/fortran/class.c | 18 | ||||
-rw-r--r-- | gcc/fortran/decl.c | 10 | ||||
-rw-r--r-- | gcc/fortran/dependency.c | 4 | ||||
-rw-r--r-- | gcc/fortran/error.c | 2 | ||||
-rw-r--r-- | gcc/fortran/expr.c | 2 | ||||
-rw-r--r-- | gcc/fortran/f95-lang.c | 4 | ||||
-rw-r--r-- | gcc/fortran/frontend-passes.c | 6 | ||||
-rw-r--r-- | gcc/fortran/gfortranspec.c | 2 | ||||
-rw-r--r-- | gcc/fortran/module.c | 6 | ||||
-rw-r--r-- | gcc/fortran/options.c | 10 | ||||
-rw-r--r-- | gcc/fortran/parse.c | 4 | ||||
-rw-r--r-- | gcc/fortran/primary.c | 2 | ||||
-rw-r--r-- | gcc/fortran/resolve.c | 8 | ||||
-rw-r--r-- | gcc/fortran/scanner.c | 2 | ||||
-rw-r--r-- | gcc/fortran/simplify.c | 7 | ||||
-rw-r--r-- | gcc/fortran/symbol.c | 2 | ||||
-rw-r--r-- | gcc/fortran/trans-array.c | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-common.c | 2 | ||||
-rw-r--r-- | gcc/fortran/trans-decl.c | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-expr.c | 12 | ||||
-rw-r--r-- | gcc/fortran/trans-intrinsic.c | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-io.c | 2 | ||||
-rw-r--r-- | gcc/fortran/trans-stmt.c | 14 | ||||
-rw-r--r-- | gcc/fortran/trans-types.c | 2 | ||||
-rw-r--r-- | gcc/fortran/trans.c | 2 |
28 files changed, 134 insertions, 75 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f2bc626fb01..a96cf423493 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,61 @@ +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. + 2014-09-19 Joost VandeVondele <vondele@gcc.gnu.org> PR fortran/63152 diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c index a05fa4907a4..f8f2ba6af2c 100644 --- a/gcc/fortran/arith.c +++ b/gcc/fortran/arith.c @@ -758,7 +758,7 @@ gfc_arith_divide (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp) 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, int kind) } -/* Convert Hollerith to character. */ +/* Convert Hollerith to character. */ gfc_expr * gfc_hollerith2character (gfc_expr *src, int kind) diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 95d28693f27..531fe86ba56 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -3357,7 +3357,7 @@ gfc_check_rank (gfc_expr *a ATTRIBUTE_UNUSED) 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, const char **msg, bool c_loc, bool c_f_ptr) 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; } diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 346aee65205..0286c9e391b 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; diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index e412a8bd070..0e0364cb54e 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -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 allow_binding_name) /* 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) { diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 367b323eae2..18641451935 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -542,7 +542,7 @@ gfc_dep_difference (gfc_expr *e1, gfc_expr *e2, mpz_t *result) 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 *l_ar, gfc_array_ref *r_ar, int n) #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) diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index a08aa9bd72e..10df7e56916 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -1031,7 +1031,7 @@ gfc_diagnostic_starter (diagnostic_context *context, { 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 diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 3e3a664b108..1bd62fa87f1 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -4560,7 +4560,7 @@ gfc_is_simply_contiguous (gfc_expr *expr, bool strict) 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; diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index da3a0d090cf..8e8591a5333 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -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, diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index 1ad30293237..97a9164b44d 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -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_subtrees, 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) { diff --git a/gcc/fortran/gfortranspec.c b/gcc/fortran/gfortranspec.c index cceee6d2d39..9d27698a816 100644 --- a/gcc/fortran/gfortranspec.c +++ b/gcc/fortran/gfortranspec.c @@ -198,7 +198,7 @@ lang_specific_driver (struct cl_decoded_option **in_decoded_options, /* 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. */ diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 48ad9e857ad..1c020700ba0 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -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) diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index d648e949800..6543fbd1ec6 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -72,7 +72,7 @@ gfc_init_options_struct (struct gcc_options *opts) } /* 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, bool trap) 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; diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index e8dcb70edb2..91650614ada 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -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) { diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index e2eb46748fe..bbaa5171e54 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -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) { diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index da732db26ab..a83e5afaae5 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -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_namespace *ns) 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 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index adb926a65e7..8d650675560 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -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); } diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index cc8a52adb2c..278527c58d2 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -391,7 +391,7 @@ compute_dot_product (gfc_expr *matrix_a, int stride_a, int offset_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_expr *result, gfc_expr *array, gfc_expr * 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, gfc_expr *dim_expr, gfc_expr *ncopies_exp 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) diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 2e045985576..8e1d8b3b408 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -4207,7 +4207,7 @@ generate_isocbinding_symbol (const char *mod_name, iso_c_binding_symbol s, || 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) diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 3ac65238506..9218738d2a9 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -3178,7 +3178,7 @@ gfc_conv_array_ref (gfc_se * se, gfc_array_ref * ar, gfc_expr *expr, && 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_expr * expr, tree status, tree errmsg, 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 (gfc_loopinfo *loop, 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) diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index f28eda6b634..06203419608 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -708,7 +708,7 @@ create_common (gfc_common_head *com, segment_info *head, bool saw_equiv) 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); diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index c0a5cc15d8f..10dfc9f8534 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -3651,7 +3651,7 @@ gfc_init_default_dt (gfc_symbol * sym, stmtblock_t * block, bool dealloc) /* 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, diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 4c057eea10d..6077a32dfac 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -231,7 +231,7 @@ gfc_reset_vptr (stmtblock_t *block, gfc_expr *e) 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, gfc_expr *e, gfc_typespec class_ts, 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, gfc_symbol * sym, && 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_expr * expr1, gfc_expr * expr2) { /* 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 *se, locus *where, gfc_ss **ss, 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, gfc_expr * expr2, bool init_flag, 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); diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index a13b11356af..0a83ad0219a 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -2696,7 +2696,7 @@ conv_intrinsic_system_clock (gfc_code *code) 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 *code) 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 *code) 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)); diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 4340afb1e25..fbf791263d3 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -2135,7 +2135,7 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code) 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; diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index f3dec7595fa..d17b0758d2c 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -773,7 +773,7 @@ gfc_trans_sync (gfc_code *code, gfc_exec_op type) } /* 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, stmtblock_t *pblock, tree dovar, 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, stmtblock_t *pblock, tree dovar, 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_cond) /* 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_cond) 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, gfc_expr *expr2, 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); diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index cf24895f1c9..032147deafc 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -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) { diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 2cc701e8f30..dbaa7d7523c 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -1085,7 +1085,7 @@ gfc_add_finalizer_call (stmtblock_t *block, gfc_expr *expr2) } /* 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 |