[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression PR100097

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:2aa57a84c38e13fbd84ef7608d19b1d39dea3507

commit 2aa57a84c38e13fbd84ef7608d19b1d39dea3507
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Jun 3 19:06:02 2025 +0200

    Correction régression PR100097

Diff:
---
 gcc/fortran/expr.cc | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/gcc/fortran/expr.cc b/gcc/fortran/expr.cc
index 67dde85a1e42..2f38bf893ee4 100644
--- a/gcc/fortran/expr.cc
+++ b/gcc/fortran/expr.cc
@@ -1176,13 +1176,10 @@ is_subref_array (gfc_expr * e)
 {
   gfc_ref * ref;
   bool seen_array;
-  gfc_symbol *sym;
 
   if (e->expr_type != EXPR_VARIABLE)
     return false;
 
-  sym = e->symtree->n.sym;
-
   seen_array = false;
 
   for (ref = e->ref; ref; ref = ref->next)
@@ -1205,12 +1202,6 @@ is_subref_array (gfc_expr * e)
        return seen_array;
     }
 
-  if (sym->ts.type == BT_CLASS
-      && sym->attr.dummy
-      && CLASS_DATA (sym)->attr.dimension
-      && CLASS_DATA (sym)->attr.class_pointer)
-    return true;
-
   return false;
 }