https://gcc.gnu.org/g:713e5b206095160c249595381a1af8af63ccad07
commit 713e5b206095160c249595381a1af8af63ccad07 Author: Mikael Morin <[email protected]> Date: Wed Sep 16 17:12:52 2026 +0200 Sauvegarde modifs Diff: --- gcc/fortran/trans-array.cc | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index d4ee95e5e321..30d6e7c9f8f5 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -8244,6 +8244,8 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr) /* Create a new descriptor if the array doesn't have one. */ full = 0; } + else if (info->ref->next != nullptr) + full = 0; else if (info->ref->u.ar.type == AR_FULL || se->descriptor_only) full = 1; else if (se->direct_byref)
