https://gcc.gnu.org/g:35f4b45a51219382261d465c7e870b5ec0541811
commit 35f4b45a51219382261d465c7e870b5ec0541811 Author: Mikael Morin <[email protected]> Date: Mon Oct 13 12:09:38 2025 +0200 Correction régression get_with_fn_parameter.f90 Diff: --- gcc/fortran/trans-intrinsic.cc | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc index 47b6a4a022c8..1cbfecc773cd 100644 --- a/gcc/fortran/trans-intrinsic.cc +++ b/gcc/fortran/trans-intrinsic.cc @@ -1234,8 +1234,10 @@ contiguous_coarray (gfc_expr *expr) || sym->as->type == AS_ASSUMED_RANK)) return false; - if (!(sym->assoc - && !sym->assoc->dangling)) + if (!sym->assoc) + return true; + + if (sym->assoc->dangling) return false; if (!sym->assoc->variable)
