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
Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog (Revision 200233)
+++ gcc/fortran/ChangeLog (Arbeitskopie)
@@ -1,14 +1,18 @@
+2013-06-20 Tobias Burnus <bur...@net-b.de>
+
+ * resolve.c (get_temp_from_expr): Don't set FL_VARIABLE twice.
+
2013-06-17 Tobias Burnus <bur...@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 <mik...@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;
}