[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression bind_c_optional-1

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:3f342407aac12642c25acc770f9e61c66bff2d6c

commit 3f342407aac12642c25acc770f9e61c66bff2d6c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Aug 15 16:01:36 2025 +0200

    Correction régression bind_c_optional-1

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 812bf992e900..f020a6f0bcc7 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2099,7 +2099,7 @@ gfc_set_gfc_from_cfi (stmtblock_t *block, tree gfc, 
gfc_expr *e, tree rank,
       stmtblock_t loop_body;
       gfc_init_block (&loop_body);
       set_gfc_dimension_from_cfi (&loop_body, gfc, cfi, idx,
-                                 gfc_get_cfi_dim_lbound (gfc, idx), offset,
+                                 gfc_get_cfi_dim_lbound (cfi, idx), offset,
                                  NULL_TREE, false);
       /* Generate loop.  */
       gfc_simple_for_loop (&block2, idx, build_int_cst (TREE_TYPE (idx), 0),