diff options
| author | Feng Wang <fengwang@nudt.edu.cn> | 2005-03-15 03:26:09 +0000 |
|---|---|---|
| committer | Feng Wang <fengwang@gcc.gnu.org> | 2005-03-15 03:26:09 +0000 |
| commit | 223c8158927a356b3a49eaa209c3ba9f57a0c6dd (patch) | |
| tree | 6332839ce043f7fe92179bc64aafcdd480d71c13 /gcc | |
| parent | ce2df7c64ae0185dab22bb38628acf8ae48551b7 (diff) | |
| download | gcc-223c8158927a356b3a49eaa209c3ba9f57a0c6dd.zip gcc-223c8158927a356b3a49eaa209c3ba9f57a0c6dd.tar.gz gcc-223c8158927a356b3a49eaa209c3ba9f57a0c6dd.tar.bz2 | |
trans-stmt.c (gfc_trans_label_assign): Don't set DECL_ARTIFICIAL flag to zero on label_tree.
2005-03-15 Feng Wang <fengwang@nudt.edu.cn>
* trans-stmt.c (gfc_trans_label_assign): Don't set DECL_ARTIFICIAL flag
to zero on label_tree.
From-SVN: r96468
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 415af9d..32e6c02 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2005-03-15 Feng Wang <fengwang@nudt.edu.cn> + * trans-stmt.c (gfc_trans_label_assign): Don't set DECL_ARTIFICIAL flag + to zero on label_tree. + +2005-03-15 Feng Wang <fengwang@nudt.edu.cn> + PR fortran/18827 * io.c (resolve_tag): Add checking on assigned label. (match_dt_format): Does not set symbol assign attribute. diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index ea5da88..5244127 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -120,8 +120,6 @@ gfc_trans_label_assign (gfc_code * code) if (code->label->defined == ST_LABEL_TARGET) { - /* Shouldn't need to set this flag. Reserve for optimization bug. */ - DECL_ARTIFICIAL (label_tree) = 0; label_tree = gfc_build_addr_expr (pvoid_type_node, label_tree); len_tree = integer_minus_one_node; } |