diff options
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 14 |
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; |