https://gcc.gnu.org/g:8e74d493cdd12adb13ab3701200c6a7a3a6e9bb9
commit 8e74d493cdd12adb13ab3701200c6a7a3a6e9bb9 Author: Mikael Morin <[email protected]> Date: Wed Sep 16 13:38:51 2026 +0200 Correction erreur compil' Diff: --- gcc/fortran/trans-array.cc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 9afffb49f2c2..6b8cffaac2a8 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -2769,10 +2769,6 @@ trans_array_constructor (gfc_ss * ss, locus * where) mpz_clear (size); } - bool unlimited_polymorphic = false; - if (!se->direct_byref) - unlimited_polymorphic = UNLIMITED_POLY (expr); - /* Special case constant array constructors. */ if (!dynamic) { @@ -8177,6 +8173,10 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr) expr = expr->value.function.actual->expr; } + bool unlimited_polymorphic = false; + if (!se->direct_byref) + unlimited_polymorphic = UNLIMITED_POLY (expr); + /* Special case things we know we can pass easily. */ switch (expr->expr_type) {
