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

gcc/fortran/ChangeLog

 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.

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;
     }