From cde3a7a96908f651a844fd43905a64651d42c5af Mon Sep 17 00:00:00 2001 From: Asher Langton Date: Thu, 2 Jun 2011 21:41:12 +0000 Subject: re PR fortran/49268 (Invalid code generated for assumed-size Cray pointee) * trans-decl.c (gfc_trans_deferred_vars): Treat assumed-size Cray pointees as AS_EXPLICIT. * gfortran.dg/PR49268.f90: New test. From-SVN: r174584 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-decl.c | 6 +++++- 2 files changed, 11 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index fec047e..532a30b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2011-06-02 Asher Langton + PR fortran/49268 + * trans-decl.c (gfc_trans_deferred_vars): Treat assumed-size Cray + pointees as AS_EXPLICIT. + +2011-06-02 Asher Langton + PR fortran/37039 * decl.c (variable_decl): Merge current_as before copying to cp_as. diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 27eca79..a225915 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -3465,7 +3465,11 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block) if (sym->attr.dimension || sym->attr.codimension) { - switch (sym->as->type) + /* Assumed-size Cray pointees need to be treated as AS_EXPLICIT. */ + array_type tmp = sym->as->type; + if (tmp == AS_ASSUMED_SIZE && sym->as->cp_was_assumed) + tmp = AS_EXPLICIT; + switch (tmp) { case AS_EXPLICIT: if (sym->attr.dummy || sym->attr.result) -- cgit v1.1