diff options
author | Jakub Jelinek <jakub@redhat.com> | 2009-11-28 13:13:21 +0100 |
---|---|---|
committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2009-11-28 13:13:21 +0100 |
commit | c4fae39e150019439df90c4c6dd0d62dfa914f70 (patch) | |
tree | 25a88a559a99d69f9ff5c674d6b9920c741300a2 /gcc/fortran/resolve.c | |
parent | 76dcaf33d5bd891cfdf8cd376d06dac81e950f48 (diff) | |
download | gcc-c4fae39e150019439df90c4c6dd0d62dfa914f70.zip gcc-c4fae39e150019439df90c4c6dd0d62dfa914f70.tar.gz gcc-c4fae39e150019439df90c4c6dd0d62dfa914f70.tar.bz2 |
trans-common.c (create_common): Remove unused offset variable.
* trans-common.c (create_common): Remove unused offset variable.
* io.c (gfc_match_wait): Remove unused loc variable.
* trans-openmp.c (gfc_trans_omp_clauses): Remove unused old_clauses
variable.
(gfc_trans_omp_do): Remove unused outermost variable.
* iresolve.c (gfc_resolve_alarm_sub, gfc_resolve_fseek_sub): Remove
unused status variable.
* module.c (number_use_names): Remove unused c variable.
(load_derived_extensions): Remove unused nuse variable.
* trans-expr.c (gfc_conv_substring): Remove unused var variable.
* trans-types.c (gfc_get_array_descr_info): Remove unused offset_off
variable.
* matchexp.c (match_primary): Remove unused where variable.
* trans-intrinsic.c (gfc_conv_intrinsic_bound): Remove unused cond2
variable.
(gfc_conv_intrinsic_sizeof): Remove unused source variable.
(gfc_conv_intrinsic_transfer): Remove unused stride variable.
(gfc_conv_intrinsic_function): Remove unused isym variable.
* arith.c (gfc_hollerith2real, gfc_hollerith2complex,
gfc_hollerith2logical): Remove unused len variable.
* parse.c (parse_derived): Remove unused derived_sym variable.
* decl.c (variable_decl): Remove unused old_locus variable.
* resolve.c (check_class_members): Remove unused tbp_sym variable.
(resolve_ordinary_assign): Remove unused assign_proc variable.
(resolve_equivalence): Remove unused value_name variable.
* data.c (get_array_index): Remove unused re variable.
* trans-array.c (gfc_conv_array_transpose): Remove unused src_info
variable.
(gfc_conv_resolve_dependencies): Remove unused aref and temp_dim
variables.
(gfc_conv_loop_setup): Remove unused dim and len variables.
(gfc_walk_variable_expr): Remove unused head variable.
* match.c (match_typebound_call): Remove unused var variable.
* intrinsic.c (gfc_convert_chartype): Remove unused from_ts variable.
From-SVN: r154722
Diffstat (limited to 'gcc/fortran/resolve.c')
-rw-r--r-- | gcc/fortran/resolve.c | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5048f25..b685312 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5122,7 +5122,6 @@ check_members (gfc_symbol *derived) static void check_class_members (gfc_symbol *derived) { - gfc_symbol* tbp_sym; gfc_expr *e; gfc_symtree *tbp; gfc_class_esym_list *etmp; @@ -5142,8 +5141,6 @@ check_class_members (gfc_symbol *derived) if (tbp->n.tb->is_generic) { - tbp_sym = NULL; - /* If we have to match a passed class member, force the actual expression to have the correct type. */ if (!tbp->n.tb->nopass) @@ -5156,8 +5153,6 @@ check_class_members (gfc_symbol *derived) e->value.compcall.base_object->ts.u.derived = derived; } } - else - tbp_sym = tbp->n.tb->u.specific->n.sym; e->value.compcall.tbp = tbp->n.tb; e->value.compcall.name = tbp->name; @@ -7610,14 +7605,12 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) if (gfc_extend_assign (code, ns) == SUCCESS) { - gfc_symbol* assign_proc; gfc_expr** rhsptr; if (code->op == EXEC_ASSIGN_CALL) { lhs = code->ext.actual->expr; rhsptr = &code->ext.actual->next->expr; - assign_proc = code->symtree->n.sym; } else { @@ -7632,7 +7625,6 @@ resolve_ordinary_assign (gfc_code *code, gfc_namespace *ns) tbp = code->expr1->value.compcall.tbp; gcc_assert (!tbp->is_generic); - assign_proc = tbp->u.specific->n.sym; } /* Make a temporary rhs when there is a default initializer @@ -11690,10 +11682,8 @@ resolve_equivalence (gfc_equiv *eq) seq_type eq_type, last_eq_type; gfc_typespec *last_ts; int object, cnt_protected; - const char *value_name; const char *msg; - value_name = NULL; last_ts = &eq->expr->symtree->n.sym->ts; first_sym = eq->expr->symtree->n.sym; |