diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2006-10-06 09:23:00 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2006-10-06 09:23:00 +0200 |
| commit | 9eccb94dff81cd39b3c29086f3b83fa058b92f0c (patch) | |
| tree | 4f3f98ab5ff53c47eb6353b659892f5defacd38d /gcc/fortran/trans-decl.c | |
| parent | 86a0f64291720469505a83812911c07ab7a2453f (diff) | |
| download | gcc-9eccb94dff81cd39b3c29086f3b83fa058b92f0c.zip gcc-9eccb94dff81cd39b3c29086f3b83fa058b92f0c.tar.gz gcc-9eccb94dff81cd39b3c29086f3b83fa058b92f0c.tar.bz2 | |
re PR fortran/28415 (4.2.0 ICE when using automatic array and -fno-automatic)
PR fortran/28415
* trans-decl.c (gfc_finish_var_decl): With -fno-automatic, don't
make artificial variables or pointer to variable automatic array
TREE_STATIC.
* gfortran.dg/save_2.f90: New test.
From-SVN: r117482
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 9e50ead..f74fcd8 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -511,7 +511,14 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym) /* Keep variables larger than max-stack-var-size off stack. */ if (!sym->ns->proc_name->attr.recursive && INTEGER_CST_P (DECL_SIZE_UNIT (decl)) - && !gfc_can_put_var_on_stack (DECL_SIZE_UNIT (decl))) + && !gfc_can_put_var_on_stack (DECL_SIZE_UNIT (decl)) + /* Put variable length auto array pointers always into stack. */ + && (TREE_CODE (TREE_TYPE (decl)) != POINTER_TYPE + || sym->attr.dimension == 0 + || sym->as->type != AS_EXPLICIT + || sym->attr.pointer + || sym->attr.allocatable) + && !DECL_ARTIFICIAL (decl)) TREE_STATIC (decl) = 1; /* Handle threadprivate variables. */ |