trans-stmt.c (gfc_trans_label_assign): Don't set DECL_ARTIFICIAL flag to zero on...

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 415af9def1d38f3f2488980ded3912030039eca0..32e6c02b0c47d648d8e12fad8bf58c3598fd7401 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c
index ea5da88fe7b90365bd0e16f4fd69441a0a97e5c0..524412725ab6ca50ac6dc4cd051a7d1f6f388e82 100644 (file)
--- 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;
     }