[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction allocatable_uninitialized_1

[Mikael Morin via Gcc-cvs]

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

commit e5648bea8912b297ff59148c55d7fc962053a99c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 8 21:59:48 2025 +0200

    Correction allocatable_uninitialized_1

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index ab6e7766e89f..df8ddabcb29c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3878,7 +3878,9 @@ gfc_conv_array_ref (gfc_se * se, gfc_array_ref * ar, 
gfc_expr *expr,
 
   tree elt_size;
   bool use_array_ref = array_ref_safe_p (decl, &elt_size);
-  elt_size = fold_convert_loc (input_location, gfc_array_index_type, elt_size);
+  if (use_array_ref)
+    elt_size = fold_convert_loc (input_location, gfc_array_index_type,
+                                elt_size);
 
   tree off = gfc_conv_array_offset (decl);
   if (use_array_ref)