[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Nettoyage correction

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:25d531ca762f73c070684cf83f0087727709cab7

commit 25d531ca762f73c070684cf83f0087727709cab7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Feb 4 15:30:43 2025 +0100

    Nettoyage correction

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 1d3bb40a8383..9ea0f255a3ef 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -895,7 +895,7 @@ get_descriptor_init (tree type, gfc_typespec *ts, int rank,
   if (init.set_span ())
     {
       tree span_field = gfc_advance_chain (fields, SPAN_FIELD);
-      tree span_value = build_int_cst (TREE_TYPE (span_field), 0);
+      tree span_value = build_zero_cst (TREE_TYPE (span_field));
       CONSTRUCTOR_APPEND_ELT (v, span_field, span_value);
     }