diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 16:17:59 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-05-13 16:17:59 +0000 |
| commit | 79bd1948049e44e2bef8ea00187fee391421b0cf (patch) | |
| tree | e49b4a8743040e93a8b492edc72c69521fa7a99c /gcc/fortran/resolve.c | |
| parent | 286c4fcbc8953338d4d00d93d8239ad305324209 (diff) | |
| download | gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.zip gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.tar.gz gcc-79bd1948049e44e2bef8ea00187fee391421b0cf.tar.bz2 | |
gfortran.h (gfc_code): Rename struct member label to label1.
2009-05-12 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.h (gfc_code): Rename struct member label to label1.
* dump-parse-tree.c (show_code_node): Update symbol.
* trans-stmt.c (gfc_trans_label_assign, gfc_trans_goto,
gfc_trans_arithmetic_if)": Ditto.
* resolve.c (gfc_resolve_blocks, resolve_code): Ditto.
* match.c (match_arithmetic_if, gfc_match_if, gfc_reference_st_label,
gfc_match_assign, gfc_match_goto): Ditto.
* parse.c (parse_do_block): Ditto.
From-SVN: r147489
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 43044ef..028235b 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -6645,7 +6645,7 @@ gfc_resolve_blocks (gfc_code *b, gfc_namespace *ns) break; case EXEC_GOTO: - resolve_branch (b->label, b); + resolve_branch (b->label1, b); break; case EXEC_SELECT: @@ -6927,7 +6927,7 @@ resolve_code (gfc_code *code, gfc_namespace *ns) &code->expr->where); } else - resolve_branch (code->label, code); + resolve_branch (code->label1, code); break; case EXEC_RETURN: @@ -6951,9 +6951,9 @@ resolve_code (gfc_code *code, gfc_namespace *ns) break; case EXEC_LABEL_ASSIGN: - if (code->label->defined == ST_LABEL_UNKNOWN) + if (code->label1->defined == ST_LABEL_UNKNOWN) gfc_error ("Label %d referenced at %L is never defined", - code->label->value, &code->label->where); + code->label1->value, &code->label1->where); if (t == SUCCESS && (code->expr->expr_type != EXPR_VARIABLE || code->expr->symtree->n.sym->ts.type != BT_INTEGER @@ -6978,7 +6978,7 @@ resolve_code (gfc_code *code, gfc_namespace *ns) gfc_error ("Arithmetic IF statement at %L requires a numeric " "expression", &code->expr->where); - resolve_branch (code->label, code); + resolve_branch (code->label1, code); resolve_branch (code->label2, code); resolve_branch (code->label3, code); break; |