From 3ef8924ea0ced778e666af6bf6e37ef7d8e4fbf4 Mon Sep 17 00:00:00 2001
From: Mikael Morin <mikael@gcc.gnu.org>
Date: Wed, 15 Oct 2025 22:26:25 +0200
Subject: [PATCH] =?UTF-8?q?Correction=20r=C3=A9gression=20associate=5F70.f?=
 =?UTF-8?q?90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 0226f365ef34..35bc953c9b4c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3978,6 +3978,7 @@ build_array_ref (gfc_se *se, tree array, tree ref_base, gfc_expr *expr,
 	gcc_assert (TREE_CODE (ptr_type) == POINTER_TYPE);
 	if (TREE_CODE (TREE_TYPE (ptr_type)) == ARRAY_TYPE)
 	  ptr_type = build_pointer_type (TREE_TYPE (TREE_TYPE (ptr_type)));
+	ptr = fold_convert_loc (input_location, ptr_type, ptr);
 	tree p = fold_build2_loc (input_location, POINTER_PLUS_EXPR,
 				  ptr_type, ptr, offset);
 	se->expr = build_fold_indirect_ref_loc (input_location, p);