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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:027e647b8de56d790bcda8cc7c9b6e2cd85a8cc6

commit 027e647b8de56d790bcda8cc7c9b6e2cd85a8cc6
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 25 10:30:53 2025 +0200

    Correction régression coarray_critical_1

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

diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc
index 28938dd039c6..2b79b1381f66 100644
--- a/gcc/fortran/trans-decl.cc
+++ b/gcc/fortran/trans-decl.cc
@@ -1258,14 +1258,6 @@ gfc_build_qualified_array (tree decl, gfc_symbol * sym)
       suppress_warning (GFC_TYPE_ARRAY_SIZE (type));
     }
 
-  if (POINTER_TYPE_P (type))
-    {
-      gcc_assert (GFC_ARRAY_TYPE_P (TREE_TYPE (type)));
-      gcc_assert (TYPE_LANG_SPECIFIC (type)
-                 == TYPE_LANG_SPECIFIC (TREE_TYPE (type)));
-      type = TREE_TYPE (type);
-    }
-
   if (! COMPLETE_TYPE_P (type) && GFC_TYPE_ARRAY_SIZE (type))
     {
       tree size, range;