[gcc(refs/users/mikael/heads/pr127827_v01)] Correction régression dependency_26

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:41c5fe57c9fc5a11a00d1dd9a8d390fb001a77e4

commit 41c5fe57c9fc5a11a00d1dd9a8d390fb001a77e4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Oct 15 14:28:52 2026 +0200

    Correction régression dependency_26

Diff:
---
 gcc/fortran/expr.cc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc
index 89f0aa7836c7..5d096886abd0 100644
--- a/gcc/fortran/expr.cc
+++ b/gcc/fortran/expr.cc
@@ -1233,7 +1233,12 @@ is_subref_array (gfc_expr * e)
       && sym->result)
     sym = sym->result;
 
-  if (IS_POINTER (sym))
+  if ((sym->ts.type == BT_CLASS
+       && sym->ts.u.derived->attr.is_class
+       && CLASS_DATA (sym)->as
+       && CLASS_DATA (sym)->attr.class_pointer)
+      || (sym->as
+         && sym->attr.pointer))
     return true;
   else if (e->expr_type == EXPR_FUNCTION)
     return false;