https://gcc.gnu.org/g:11f6a826c59367e85e914bc5cd50b60b73880fb3
commit 11f6a826c59367e85e914bc5cd50b60b73880fb3 Author: Mikael Morin <[email protected]> Date: Thu Oct 15 16:22:02 2026 +0200 Correction régression assumed_rank_25 Diff: --- gcc/fortran/trans-decl.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 6d345417621a..14848657e4db 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -2132,7 +2132,8 @@ gfc_get_symbol_decl (gfc_symbol * sym) { gfc_symbol *sel = sym->assoc->target->symtree->n.sym; if (!sel->attr.contiguous - && (sel->attr.target || sel->attr.pointer || sel->ts.type == BT_CLASS)) + && (sel->attr.target || sel->attr.pointer || sel->ts.type == BT_CLASS + || (sel->as && sel->as->type == AS_ASSUMED_RANK))) GFC_DECL_PTR_ARRAY_P (decl) = 1; }
