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

[Mikael Morin via Gcc-cvs]

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

commit ff1a370b3cb3f539f5b14845d67cea882959e94c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Feb 6 17:31:49 2025 +0100

    Correction régression allocated_4.f90

Diff:
---
 gcc/fortran/trans-array.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index afec6dcc45cb..2cca5e211469 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1617,7 +1617,7 @@ gfc_conv_shift_descriptor (stmtblock_t *block, tree dest, 
tree src,
   tree tmp = gfc_conv_descriptor_data_get (src);
   gfc_conv_descriptor_data_set (block, dest, tmp);
 
-  tree offset_var = gfc_create_var (TREE_TYPE (tmp), "offset");
+  tree offset_var = gfc_create_var (gfc_array_index_type, "offset");
   gfc_add_modify (block, offset_var, gfc_index_zero_node);
 
   for (int n = 0 ; n < rank; n++)