https://gcc.gnu.org/g:6f6a79cd2b89e7af8b5b8a731ee2b50afc9c6356
commit 6f6a79cd2b89e7af8b5b8a731ee2b50afc9c6356 Author: Mikael Morin <[email protected]> Date: Mon Oct 6 21:47:27 2025 +0200 Correction régression dependency_48.f90 Diff: --- gcc/fortran/trans-decl.cc | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 61c5ec8c0d29..ca19dc28de6e 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -1317,13 +1317,14 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree dummy) { bool bytes_strides_p = GFC_BYTES_STRIDES_ARRAY_TYPE_P (type); - if ((sym->attr.result - || (sym->attr.function && sym == sym->result)) - && gfc_return_by_reference (sym)) + if (flag_repack_arrays && !sym->attr.target) + packed = PACKED_FULL; + else if ((sym->attr.result + || (sym->attr.function && sym == sym->result)) + && gfc_return_by_reference (sym)) packed = PACKED_NO; else if (as->type == AS_ASSUMED_SIZE - || as->type == AS_EXPLICIT - || (flag_repack_arrays && !sym->attr.target)) + || as->type == AS_EXPLICIT) packed = PACKED_FULL; else packed = PACKED_NO;
