https://gcc.gnu.org/g:a68d4c48dd12a1c99db99b4690ba40ded6fed1bb
commit a68d4c48dd12a1c99db99b4690ba40ded6fed1bb Author: Mikael Morin <[email protected]> Date: Fri Sep 25 15:22:58 2026 +0200 Modif condition Diff: --- gcc/fortran/expr.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc index 9c4cf92afce9..e90146edaea0 100644 --- a/gcc/fortran/expr.cc +++ b/gcc/fortran/expr.cc @@ -6496,11 +6496,11 @@ gfc_is_simply_contiguous (gfc_expr *expr, bool strict, bool permit_element) && !sym->attr.contiguous && (IS_POINTER (sym) || (sym->ts.type == BT_CLASS + && sym->ts.u.derived->attr.is_class && CLASS_DATA (sym)->as && (CLASS_DATA (sym)->as->type == AS_ASSUMED_RANK || CLASS_DATA (sym)->as->type == AS_ASSUMED_SHAPE)) - || (sym->ts.type != BT_CLASS - && sym->as + || (sym->as && (sym->as->type == AS_ASSUMED_RANK || sym->as->type == AS_ASSUMED_SHAPE))))) return false;
