diff options
| author | Martin Liska <mliska@suse.cz> | 2019-07-03 10:34:20 +0200 |
|---|---|---|
| committer | Martin Liska <marxin@gcc.gnu.org> | 2019-07-03 08:34:20 +0000 |
| commit | 8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1 (patch) | |
| tree | 2fcd128b29308fd9264fcad903970fa1cdcdb84a /gcc/fortran/simplify.c | |
| parent | 6aa2e42cb4be16ee0937ba872b297b11d8f0a18b (diff) | |
| download | gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.zip gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.tar.gz gcc-8ba6ea878fd0965606ba6cfd74cf7097a40ed6c1.tar.bz2 | |
Remove another bunch of dead assignment.
2019-07-03 Martin Liska <mliska@suse.cz>
* lra-eliminations.c (eliminate_regs_in_insn): Remove
dead assignemts.
* reg-stack.c (check_asm_stack_operands): Likewise.
* tree-ssa-structalias.c (create_function_info_for): Likewise.
* tree-vect-generic.c (expand_vector_operations_1): Likewise.
* config/i386/i386-expand.c (ix86_expand_sse2_mulvxdi3): Use
force_expand_binop.
2019-07-03 Martin Liska <mliska@suse.cz>
* c-common.c (try_to_locate_new_include_insertion_point): Remove
dead assignemts.
2019-07-03 Martin Liska <mliska@suse.cz>
* call.c (build_new_op_1): Remove
dead assignemts.
* typeck.c (cp_build_binary_op): Likewise.
2019-07-03 Martin Liska <mliska@suse.cz>
* check.c (gfc_check_c_funloc): Remove
dead assignemts.
* decl.c (variable_decl): Likewise.
* resolve.c (resolve_typebound_function): Likewise.
* simplify.c (gfc_simplify_matmul): Likewise.
(gfc_simplify_scan): Likewise.
* trans-array.c (gfc_could_be_alias): Likewise.
* trans-common.c (add_equivalences): Likewise.
* trans-expr.c (trans_class_vptr_len_assignment): Likewise.
(gfc_trans_array_constructor_copy): Likewise.
(gfc_trans_assignment_1): Likewise.
* trans-intrinsic.c (conv_intrinsic_atomic_op): Likewise.
* trans-openmp.c (gfc_omp_finish_clause): Likewise.
* trans-types.c (gfc_get_array_descriptor_base): Likewise.
* trans.c (gfc_build_final_call): Likewise.
2019-07-03 Martin Liska <mliska@suse.cz>
* line-map.c (linemap_get_expansion_filename): Remove
dead assignemts.
* mkdeps.c (make_write): Likewise.
From-SVN: r272994
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 27 |
1 files changed, 12 insertions, 15 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 6c1f4bd..2d20913 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -4714,7 +4714,7 @@ gfc_simplify_matmul (gfc_expr *matrix_a, gfc_expr *matrix_b) else gcc_unreachable(); - offset_a = offset_b = 0; + offset_b = 0; for (col = 0; col < result_columns; ++col) { offset_a = 0; @@ -6999,20 +6999,17 @@ gfc_simplify_scan (gfc_expr *e, gfc_expr *c, gfc_expr *b, gfc_expr *kind) indx = 0; } else - { - i = 0; - for (indx = len; indx > 0; indx--) - { - for (i = 0; i < lenc; i++) - { - if (c->value.character.string[i] - == e->value.character.string[indx - 1]) - break; - } - if (i < lenc) - break; - } - } + for (indx = len; indx > 0; indx--) + { + for (i = 0; i < lenc; i++) + { + if (c->value.character.string[i] + == e->value.character.string[indx - 1]) + break; + } + if (i < lenc) + break; + } } result = gfc_get_int_expr (k, &e->where, indx); |