[gcc(refs/users/mikael/heads/pr127827_v04)] Suppression cas COMPONENT_REF

[Mikael Morin via Gcc-cvs]

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

commit 2f5159da6d16157053f4efcb9ff03de37665ccc5
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Oct 25 18:27:44 2026 +0100

    Suppression cas COMPONENT_REF

Diff:
---
 gcc/fortran/trans-array.cc | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index ea68396095cf..31e82b1dac7c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -683,19 +683,6 @@ get_main_decl (tree expr)
          || INDIRECT_REF_P (decl)
          || CONVERT_EXPR_P (decl))
        decl = TREE_OPERAND (decl, 0);
-      else if (TREE_CODE (decl) == COMPONENT_REF)
-       {
-         tree base = TREE_OPERAND (decl, 0);
-         tree field = TREE_OPERAND (decl, 1);
-         const char * field_name = IDENTIFIER_POINTER (DECL_NAME (field));
-         if ((GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (base))
-              && strcmp (field_name, "data") == 0)
-             || (GFC_CLASS_TYPE_P (TREE_TYPE (base))
-                 && strcmp (field_name, "_data") == 0))
-           decl = base;
-         else
-           decl = NULL_TREE;
-       }
       else
        decl = NULL_TREE;
     }