From: Mikael Morin <morin-mikael@orange.fr>
Date: Tue, 5 Aug 2025 12:58:02 +0000 (+0200)
Subject: fortran: Remove array bound update after constructor expansion
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=0634bd56978478c567a29841b6f99ac7050764e6;p=thirdparty%2Fgcc.git

fortran: Remove array bound update after constructor expansion

The array constructor expansion extends the size of the array
dynamically, and sets the upper bound appropriately every time it
does.  There is no need to do it again at the end of expansion.

gcc/fortran/ChangeLog:

	* trans-array.cc (trans_array_constructor): Remove the update of
	the array descriptor upper bound after array constructor
	expansion.
---

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index f4a7a0c065c..7e6437bbdf7 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3105,7 +3105,6 @@ trans_array_constructor (gfc_ss * ss, locus * where)
 			     gfc_array_index_type,
 			     offsetvar, gfc_index_one_node);
       tmp = gfc_evaluate_now (tmp, &outer_loop->pre);
-      gfc_conv_descriptor_ubound_set (&loop->pre, desc, gfc_rank_cst[0], tmp);
       if (*loop_ubound0 && VAR_P (*loop_ubound0))
 	gfc_add_modify (&outer_loop->pre, *loop_ubound0, tmp);
       else