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

[Mikael Morin]

https://gcc.gnu.org/g:f1d2a4fda82c8a69306f99e7180fa1c3edbc2686

commit f1d2a4fda82c8a69306f99e7180fa1c3edbc2686
Author: Mikael Morin <mikael@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 c694baae662f..52fd9486a979 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;