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

[Mikael Morin]

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

commit e749f765a40074a68507177f8fe87f6f681d7bea
Author: Mikael Morin <mikael@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 a2773a7db57b..9c09be4724ce 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);
 }