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/check.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/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index a04f0d6..9580180 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -4884,17 +4884,13 @@ gfc_check_c_funloc (gfc_expr *x) if (attr.function && !attr.proc_pointer && x->expr_type == EXPR_VARIABLE && x->symtree->n.sym == x->symtree->n.sym->result) - { - gfc_namespace *ns = gfc_current_ns; - - for (ns = gfc_current_ns; ns; ns = ns->parent) - if (x->symtree->n.sym == ns->proc_name) - { - gfc_error ("Function result %qs at %L is invalid as X argument " - "to C_FUNLOC", x->symtree->n.sym->name, &x->where); - return false; - } - } + for (gfc_namespace *ns = gfc_current_ns; ns; ns = ns->parent) + if (x->symtree->n.sym == ns->proc_name) + { + gfc_error ("Function result %qs at %L is invalid as X argument " + "to C_FUNLOC", x->symtree->n.sym->name, &x->where); + return false; + } if (attr.flavor != FL_PROCEDURE) { |