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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:82bddac15b2261fcb684fabaa41c572df168a4d4

commit 82bddac15b2261fcb684fabaa41c572df168a4d4
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 3bf0d3a6264c..213f31a6360b 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)
@@ -1206,12 +1203,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;
 }