[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction ICE PR49268.f90

[Mikael Morin via Gcc-cvs]

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

commit d6c365618bd052485815b2695eaa25e2ca1672af
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 11 10:40:32 2025 +0200

    Correction ICE PR49268.f90

Diff:
---
 gcc/fortran/trans-decl.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc
index 378e5c164505..bf96da9f98c0 100644
--- a/gcc/fortran/trans-decl.cc
+++ b/gcc/fortran/trans-decl.cc
@@ -1070,7 +1070,7 @@ update_type_bounds (tree type, tree 
lbound[GFC_MAX_DIMENSIONS],
     }
   if (current_ubound != NULL_TREE)
     {
-      GFC_TYPE_ARRAY_UBOUND (type, dim) = current_ubound;
+      GFC_TYPE_ARRAY_UBOUND (root_type, dim) = current_ubound;
       if (current_ubound
          && VAR_P (current_ubound)
          && DECL_ARTIFICIAL (current_ubound)
@@ -1085,7 +1085,7 @@ update_type_bounds (tree type, tree 
lbound[GFC_MAX_DIMENSIONS],
   tree current_spacing = spacing[dim];
   if (current_spacing != NULL_TREE)
     {
-      GFC_TYPE_ARRAY_SPACING (type, dim) = current_spacing;
+      GFC_TYPE_ARRAY_SPACING (root_type, dim) = current_spacing;
       if (current_spacing
          && VAR_P (current_spacing)
          && DECL_ARTIFICIAL (current_spacing)