[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression coarray/dummy_3.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:a5d9877be8e642b4ba77054b11b98eb2f6feb8cc

commit a5d9877be8e642b4ba77054b11b98eb2f6feb8cc
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Sep 30 15:08:14 2025 +0200

    Correction régression coarray/dummy_3.f90

Diff:
---
 gcc/fortran/trans-decl.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc
index 8f1375dde3a5..46819df3f6c1 100644
--- a/gcc/fortran/trans-decl.cc
+++ b/gcc/fortran/trans-decl.cc
@@ -1316,6 +1316,8 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree dummy)
 
   if (GFC_DESCRIPTOR_TYPE_P (type))
     {
+      bool bytes_strides_p = GFC_BYTES_STRIDES_ARRAY_TYPE_P (type);
+
       /* Create a descriptorless array pointer.  */
       packed = PACKED_NO;
 
@@ -1353,6 +1355,7 @@ gfc_build_dummy_array_decl (gfc_symbol * sym, tree dummy)
                           : gfc_typenode_for_spec (&sym->ts);
       type = gfc_get_nodesc_array_type (type, as, packed,
                                        !sym->attr.target);
+      GFC_BYTES_STRIDES_ARRAY_TYPE_P (type) = bytes_strides_p;
     }
   else
     {