resolve.c (get_temp_from_expr): Don't set FL_VARIABLE twice.

2013-06-20  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (get_temp_from_expr): Don't set FL_VARIABLE twice.

From-SVN: r200234

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 686a8e99120a5e9328b0e18539217a616b12663e..0ae3f37bc6b3d924def444e7f43a8ac333e6b0c0 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 2788994112a0ad8496eeb837581b547d01a0b0c2..ce684012ba4b32c3918e520a6df4d61996112a8c 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -9311,7 +9311,6 @@ get_temp_from_expr (gfc_expr *e, gfc_namespace *ns)
     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);