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

[Mikael Morin]

https://gcc.gnu.org/g:0a9592f6773bf2525cce74126211bd1a38b21ccf

commit 0a9592f6773bf2525cce74126211bd1a38b21ccf
Author: Mikael Morin <mikael@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);
 }