OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

PR fortran/41860 Treat vars as save with -fno-automatic

Browse Source 
From-SVN: r153689
This commit is contained in:
Janne Blomqvist 2009-10-29 01:25:08 +02:00
parent aff4273cf1
commit 0e8bc11dcc
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2009-10-29 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/41860
* resolve.c (apply_default_init_local): Treat -fno-automatic as if
var was saved.
2009-10-28 Rafael Avila de Espindola <espindola@google.com> 2009-10-28 Rafael Avila de Espindola <espindola@google.com>
* trans-common.c (create_common): Set TREE_PUBLIC to false on * trans-common.c (create_common): Set TREE_PUBLIC to false on

3
gcc/fortran/resolve.c
View File

@ -8630,7 +8630,8 @@ apply_default_init_local (gfc_symbol *sym)
/* For saved variables, we don't want to add an initializer at /* For saved variables, we don't want to add an initializer at
function entry, so we just add a static initializer. */ function entry, so we just add a static initializer. */
if (sym->attr.save || sym->ns->save_all) if (sym->attr.save || sym->ns->save_all
|| gfc_option.flag_max_stack_var_size == 0)
{ {
/* Don't clobber an existing initializer! */ /* Don't clobber an existing initializer! */
gcc_assert (sym->value == NULL); gcc_assert (sym->value == NULL);