diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-06-09 09:25:14 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2014-06-09 09:25:14 +0000 |
commit | f84c6bd9208814d9680f05d7fb4d9c79bc14e15a (patch) | |
tree | b9ed4b7098ee14058307f4cde32c9df0a69eb0d4 /gcc/fortran | |
parent | 122032d2aebb1a62d6c38e6930ba7ee5d24bab34 (diff) | |
download | gcc-f84c6bd9208814d9680f05d7fb4d9c79bc14e15a.zip gcc-f84c6bd9208814d9680f05d7fb4d9c79bc14e15a.tar.gz gcc-f84c6bd9208814d9680f05d7fb4d9c79bc14e15a.tar.bz2 |
re PR fortran/45187 (ICE with CRAY pointer in module)
PR fortran/45187
* trans-decl.c (gfc_create_module_variable): Don't create
Cray-pointee decls twice.
* gfortran.dg/cray_pointers_10.f90: New file.
From-SVN: r211367
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c292130..d7d5e24 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-06-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/45187 + * trans-decl.c (gfc_create_module_variable): Don't create + Cray-pointee decls twice. + 2014-06-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> * io.c (resolve_tag): Warn on non-default kind for NUMBER, diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index db46858..959bcb1 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -4278,8 +4278,8 @@ gfc_create_module_variable (gfc_symbol * sym) } /* Don't generate variables from other modules. Variables from - COMMONs will already have been generated. */ - if (sym->attr.use_assoc || sym->attr.in_common) + COMMONs and Cray pointees will already have been generated. */ + if (sym->attr.use_assoc || sym->attr.in_common || sym->attr.cray_pointee) return; /* Equivalenced variables arrive here after creation. */ |