diff options
author | Janus Weil <janus@gcc.gnu.org> | 2014-12-17 22:12:42 +0100 |
---|---|---|
committer | Janus Weil <janus@gcc.gnu.org> | 2014-12-17 22:12:42 +0100 |
commit | f4e2df89707db4e673927962ca3a6fddf305b764 (patch) | |
tree | 41a3f61e02991c2970c39091972509fccea9fe47 /gcc/fortran | |
parent | 6c0c245e30e159720d62954a978ec2eb4d526d88 (diff) | |
download | gcc-f4e2df89707db4e673927962ca3a6fddf305b764.zip gcc-f4e2df89707db4e673927962ca3a6fddf305b764.tar.gz gcc-f4e2df89707db4e673927962ca3a6fddf305b764.tar.bz2 |
re PR fortran/64173 ([F03] ICE involving procedure pointer component)
2014-12-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/64173
* trans-array.c (structure_alloc_comps): Do not nullify procedure
pointer components.
2014-12-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/64173
* gfortran.dg/proc_ptr_comp_40.f90: New.
From-SVN: r218834
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/trans-array.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index edbe42a..067b133 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-12-17 Janus Weil <janus@gcc.gnu.org> + + PR fortran/64173 + * trans-array.c (structure_alloc_comps): Do not nullify procedure + pointer components. + 2014-12-17 Pierre-Marie de Rodat <derodat@adacore.com> * trans-types.c (gfc_get_array_descr_info): Describe all Fortran arrays diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index e061dcf..67beab2 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -7774,7 +7774,7 @@ structure_alloc_comps (gfc_symbol * der_type, tree decl, break; case NULLIFY_ALLOC_COMP: - if (c->attr.pointer) + if (c->attr.pointer || c->attr.proc_pointer) continue; else if (c->attr.allocatable && (c->attr.dimension|| c->attr.codimension)) |