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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:84a4b72e8e5b98e35554044aa42a7592a79557b9

commit 84a4b72e8e5b98e35554044aa42a7592a79557b9
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Apr 14 18:16:13 2025 +0200

    Correction ISO_Fortran_binding_18.f90

Diff:
---
 gcc/fortran/trans-array.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 41d0a612edf5..8cd7de71fe4a 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3722,6 +3722,8 @@ add_array_offset (stmtblock_t *pblock, gfc_loopinfo 
*loop, gfc_ss *ss,
 
   info = &ss->info->data.array;
 
+  tree type = TREE_TYPE (info->data);
+
   gfc_init_se (&se, NULL);
   se.loop = loop;
   se.expr = info->descriptor;
@@ -3731,6 +3733,7 @@ add_array_offset (stmtblock_t *pblock, gfc_loopinfo 
*loop, gfc_ss *ss,
 
   tree tmp = build_array_ref_dim (ss, index, info->spacing[array_dim]);
   tmp = gfc_build_addr_expr (NULL_TREE, tmp);
+  tmp = fold_convert_loc (input_location, type, tmp);
   info->data = gfc_evaluate_now (tmp, pblock);
 }