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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8a74bca7f9bbf32803da44a303a392d575a85f36

commit 8a74bca7f9bbf32803da44a303a392d575a85f36
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 40b006bca6de..a9f7430dbddb 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3759,7 +3759,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)