2009-01-03 Daniel Franke <franke.daniel@gmail.com>
* symbol.c (save_symbol): Don't SAVE function results.
gcc/testsuite:
2009-01-03 Daniel Franke <franke.daniel@gmail.com>
* gfortran.dg/func_result_4.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143039
138bc75d-0d04-0410-961f-
82ee72b054a4
+2009-01-03 Daniel Franke <franke.daniel@gmail.com>
+
+ * symbol.c (save_symbol): Don't SAVE function results.
+
2009-01-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38594
if (sym->attr.in_common
|| sym->attr.dummy
+ || sym->attr.result
|| sym->attr.flavor != FL_VARIABLE)
return;
/* Automatic objects are not saved. */
+2009-01-03 Daniel Franke <franke.daniel@gmail.com>
+
+ * gfortran.dg/func_result_4.f90: New.
+
2009-01-03 Paul Thomas <pault@gcc.gnu.org>
PR fortran/38594
--- /dev/null
+! { dg-do "compile" }
+! { dg-options "-c" }
+!
+! Do not apply the SAVE attribute to function results.
+!
+FUNCTION f() RESULT (g)
+ INTEGER :: g
+ SAVE
+ g = 42
+END FUNCTION