diff options
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 6 |
1 files changed, 3 insertions, 3 deletions
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)); |