[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Modification initialisation stride

https://gcc.gnu.org/g:0194b9a47bbfdcf7fab0c0f477706d11dd902f42

commit 0194b9a47bbfdcf7fab0c0f477706d11dd902f42
Author: Mikael Morin <[email protected]>
Date:   Sat Aug 16 15:42:30 2025 +0200

    Modification initialisation stride
    
    Revert "Suppression argument inutilisé"
    
    This reverts commit eaf4e13d38467b15714bbc36a49bda4460ebabab.
    
    Revert "Suppression warning argument inutilisé"
    
    This reverts commit ff23b550241409fcd70380c28c82ef19fc47bc75.
    
    Revert "Revert partiel initialisation stride"
    
    This reverts commit 0af062cb83c70fea79c98f76ca45b13376e567d7.

Diff:
---
 gcc/fortran/trans-descriptor.cc | 10 ++++++++--
 gcc/fortran/trans-descriptor.h  |  2 +-
 gcc/fortran/trans-expr.cc       |  4 ++--
 3 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index d8f20684084a..5b888e38c99c 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1562,7 +1562,8 @@ gfc_copy_descriptor (stmtblock_t *block, tree dest, tree src, tree ptr,
 
 void
 gfc_conv_remap_descriptor (stmtblock_t *block, tree dest, int dest_rank,
-			   tree src, gfc_typespec *src_type, gfc_array_ref *ar,
+			   tree src, gfc_typespec *src_type,
+			   bool contiguous_src, gfc_array_ref *ar,
 			   bool unlimited_poly_dest)
 {
   /* Set dtype.  */
@@ -1602,7 +1603,12 @@ gfc_conv_remap_descriptor (stmtblock_t *block, tree dest, int dest_rank,
 
   /* Set the bounds as declared for the LHS and calculate strides as
      well as another offset update accordingly.  */
-  tree stride = gfc_conv_descriptor_stride_get (src, gfc_rank_cst[0]);
+  tree stride;
+  if (contiguous_src)
+    stride = gfc_index_one_node;
+  else
+    stride = gfc_conv_descriptor_stride_get (src, gfc_rank_cst[0]);
+
   for (int dim = 0; dim < dest_rank; ++dim)
     {
       gfc_se lower_se;
diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h
index 658049a8b592..5481791a134f 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -101,7 +101,7 @@ void gfc_copy_descriptor (stmtblock_t *, tree, tree, tree, int);
 void gfc_copy_descriptor (stmtblock_t *, tree, tree, bool);
 
 void gfc_conv_remap_descriptor (stmtblock_t *, tree, int, tree, gfc_typespec *,
-				gfc_array_ref *, bool);
+				bool, gfc_array_ref *, bool);
 
 void gfc_set_descriptor_from_scalar_class (stmtblock_t *, tree, tree, gfc_expr *);
 void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree, symbol_attribute,
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index b3c0523cb1d6..be62c19ec026 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -11291,8 +11291,8 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2)
 		 converted in rse and now have to build the correct LHS
 		 descriptor for it.  */
 	      gfc_conv_remap_descriptor (&block, desc, expr1->rank, rse.expr,
-					 &expr2->ts, &remap->u.ar,
-					 UNLIMITED_POLY (expr1));
+					 &expr2->ts, expr2->rank != 1,
+					 &remap->u.ar, UNLIMITED_POLY (expr1));
 	    }
 	  else
 	    /* Bounds remapping.  Just shift the lower bounds.  */