[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Correction artefact conflit rebase

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

commit dde3dc4e7c1d1603b07ffeb9926b4e53e92dc8c3
Author: Mikael Morin <[email protected]>
Date:   Wed Jul 22 19:34:06 2026 +0200

    Correction artefact conflit rebase

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 786967f49e33..6e7b8733a347 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1022,6 +1022,7 @@ gfc_set_descriptor_from_scalar (stmtblock_t *block, tree descr,
 					    gfc_expr_attr (scalar_expr));
   gfc_conv_descriptor_dtype_set (block, descr,
 				 gfc_get_dtype (type));
+  copy_coarray_desc_part (block, descr, scalar);
   if (cond_presence)
     scalar = build3_loc (input_location, COND_EXPR,
 			 TREE_TYPE (scalar),