diff mbox

[Fortran,committed] Don't set FL_VARIABLE twice

Message ID 51C2CDF4.3090109@net-b.de
State New
Headers show

Commit Message

Tobias Burnus June 20, 2013, 9:40 a.m. UTC 
Follow up to http://gcc.gnu.org/ml/fortran/2013-06/msg00027.html - for 
some reason this part of the patch got lost.

Committed as Rev. 200234.

Tobias
diff mbox

Patch

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 200233)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -1,14 +1,18 @@ 
+2013-06-20  Tobias Burnus  <burnus@net-b.de>
+
+	* resolve.c (get_temp_from_expr): Don't set FL_VARIABLE twice.
+
 2013-06-17  Tobias Burnus  <burnus@net-b.de>
 
 	* gfortran.h (gfc_option_t): Add fpe_summary.
 	* gfortran.texi (_gfortran_set_options): Update.
 	* invoke.texi (-ffpe-summary): Add doc.
 	* lang.opt (ffpe-summary): Add flag.
 	* options.c (gfc_init_options, gfc_handle_option): Handle it.
 	(gfc_handle_fpe_option): Renamed from gfc_handle_fpe_trap_option,
 	also handle fpe_summary.
 	* trans-decl.c (create_main_function): Update
 	_gfortran_set_options call.
 
 2013-06-15  Mikael Morin  <mikael@gcc.gnu.org>
 
Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c	(Revision 200233)
+++ gcc/fortran/resolve.c	(Arbeitskopie)
@@ -9300,29 +9300,28 @@  get_temp_from_expr (gfc_expr *e, gfc_nam
   tmp->n.sym->attr.flavor = FL_VARIABLE;
 
   if (as)
     {
       tmp->n.sym->as = gfc_copy_array_spec (as);
       if (!ref)
 	ref = e->ref;
       if (as->type == AS_DEFERRED)
 	tmp->n.sym->attr.allocatable = 1;
     }
   else
     tmp->n.sym->attr.dimension = 0;
 
   gfc_set_sym_referenced (tmp->n.sym);
-  gfc_add_flavor (&tmp->n.sym->attr, FL_VARIABLE, name, NULL);
   gfc_commit_symbol (tmp->n.sym);
   e = gfc_lval_expr_from_sym (tmp->n.sym);
 
   /* Should the lhs be a section, use its array ref for the
      temporary expression.  */
   if (aref && aref->type != AR_FULL)
     {
       gfc_free_ref_list (e->ref);
       e->ref = gfc_copy_ref (ref);
     }
   return e;
 }