From: Mikael Morin <morin-mikael@orange.fr>
Date: Tue, 5 Aug 2025 12:58:01 +0000 (+0200)
Subject: fortran: Remove premature initialization of a function result's span
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=8d2e44fa19959e8452d500f264f4c96e13ec3617;p=thirdparty%2Fgcc.git

fortran: Remove premature initialization of a function result's span

Setting just the span in an otherwise uninitialized array descriptor to
pass to a function that will use the descriptor for its result (thus do
the initialization) doesn't seem to be useful.

gcc/fortran/ChangeLog:

	* trans-array.cc (gfc_conv_expr_descriptor): Remove
	isolated initialization of the span field before passing to
	the function that will do the initialization.
---

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 45980d65657..f4a7a0c065c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -8499,14 +8499,6 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
 	  else
 	    gcc_assert (se->ss == ss);
 
-	  if (!is_pointer_array (se->expr))
-	    {
-	      tmp = gfc_get_element_type (TREE_TYPE (se->expr));
-	      tmp = fold_convert (gfc_array_index_type,
-				  size_in_bytes (tmp));
-	      gfc_conv_descriptor_span_set (&se->pre, se->expr, tmp);
-	    }
-
 	  se->expr = gfc_build_addr_expr (NULL_TREE, se->expr);
 	  gfc_conv_expr (se, expr);