[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Reindentation retour à la ligne set_descriptor_with_shape

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5150bd8ae3b50e7e1e3ff1b18dff9179a417cc4f

commit 5150bd8ae3b50e7e1e3ff1b18dff9179a417cc4f
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Aug 17 19:43:40 2025 +0200

    Reindentation retour à la ligne set_descriptor_with_shape

Diff:
---
 gcc/fortran/trans-descriptor.cc | 20 +++++++++++---------
 1 file changed, 11 insertions(+), 9 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 60cb6f1b9798..d283c741767f 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1755,11 +1755,12 @@ gfc_set_descriptor_with_shape (stmtblock_t *block, tree 
desc, tree ptr,
 
   gfc_conv_expr (&shapese, shape);
   gfc_add_block_to_block (&body, &shapese.pre);
-  tree ubound = fold_build2_loc (
-    input_location, MINUS_EXPR, gfc_array_index_type,
-    fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type, lbound,
-                    fold_convert (gfc_array_index_type, shapese.expr)),
-    gfc_index_one_node);
+  tmp = fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type,
+                        lbound, gfc_index_one_node);
+  tree ubound = fold_build2_loc (input_location, PLUS_EXPR,
+                                gfc_array_index_type, tmp,
+                                fold_convert (gfc_array_index_type,
+                                              shapese.expr));
   gfc_conv_descriptor_ubound_set (&body, desc, dim, ubound);
   gfc_add_block_to_block (&body, &shapese.post);
 
@@ -1771,10 +1772,11 @@ gfc_set_descriptor_with_shape (stmtblock_t *block, tree 
desc, tree ptr,
                                   gfc_array_index_type, offset, tmp));
 
   /* Update stride.  */
-  gfc_add_modify (
-    &body, stride,
-    fold_build2_loc (input_location, MULT_EXPR, gfc_array_index_type, stride,
-                    fold_convert (gfc_array_index_type, shapese.expr)));
+  gfc_add_modify (&body, stride,
+                 fold_build2_loc (input_location, MULT_EXPR,
+                                  gfc_array_index_type, stride,
+                                  fold_convert (gfc_array_index_type,
+                                                shapese.expr)));
   /* Finish scalarization loop.  */
   gfc_trans_scalarizing_loops (&loop, &body);
   gfc_add_block_to_block (block, &loop.pre);