https://gcc.gnu.org/g:5497f1143ca51b951cd6149a5da3d27e90111511
commit 5497f1143ca51b951cd6149a5da3d27e90111511 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)
