diff options
| author | Fritz Reese <Reese-Fritz@zai.com> | 2014-09-03 18:50:27 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-09-03 20:50:27 +0200 |
| commit | 88f7d6fb23723894389f6560d47fc52fd7a8a1a8 (patch) | |
| tree | 472315ccf1be11386f4b497c99ee39b6feb59fef /gcc/fortran | |
| parent | 64e04187a14a428f727e6ee0fb7abd939843935c (diff) | |
| download | gcc-88f7d6fb23723894389f6560d47fc52fd7a8a1a8.zip gcc-88f7d6fb23723894389f6560d47fc52fd7a8a1a8.tar.gz gcc-88f7d6fb23723894389f6560d47fc52fd7a8a1a8.tar.bz2 | |
[multiple changes]
2014-09-03 Fritz Reese <Reese-Fritz@zai.com>
PR fortran/62174
* decl.c (variable_decl): Don't overwrite typespecs of Cray
* pointees
when matching a component declaration.
2014-09-02 Fritz Reese <Reese-Fritz@zai.com>
PR fortran/62174
* gfortran.dg/cray_pointers_11.f90: New.
From-SVN: r214891
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/decl.c | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 518923b..9eeb4cf 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-09-03 Fritz Reese <Reese-Fritz@zai.com> + + PR fortran/62174 + * decl.c (variable_decl): Don't overwrite typespecs of Cray pointees + when matching a component declaration. + 2014-09-02 Marek Polacek <polacek@redhat.com> PR fortran/62270 diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 25d92a4..e412a8b 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -1904,8 +1904,9 @@ variable_decl (int elem) } /* If this symbol has already shown up in a Cray Pointer declaration, + and this is not a component declaration, then we want to set the type & bail out. */ - if (gfc_option.flag_cray_pointer) + if (gfc_option.flag_cray_pointer && gfc_current_state () != COMP_DERIVED) { gfc_find_symbol (name, gfc_current_ns, 1, &sym); if (sym != NULL && sym->attr.cray_pointee) |