[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Correction régression associate_62.f90

[Mikael Morin via Gcc-cvs]

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

commit c6ec65afe4f07bcb72ed5037a0d6dc245f2895b3
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Mar 16 21:51:03 2025 +0100

    Correction régression associate_62.f90

Diff:
---
 gcc/fortran/trans-descriptor.cc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 763308ef5c21..76437f8e3508 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1307,7 +1307,10 @@ get_descr_type (const struct descr_change_info 
&change_info,
     }
 
   tree descriptor_type = change_info.descriptor_type;
-  tree type_info_field = gfc_advance_chain (TYPE_FIELDS (descriptor_type),
+  tree dtype_field = gfc_advance_chain (TYPE_FIELDS (descriptor_type),
+                                       DTYPE_FIELD);
+  tree dtype_type = TREE_TYPE (dtype_field);
+  tree type_info_field = gfc_advance_chain (TYPE_FIELDS (dtype_type),
                                            GFC_DTYPE_TYPE);
   return build_int_cst (TREE_TYPE (type_info_field), n);
 }