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

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

commit f10417ad6c56f695f07b505b869de6f5dba512d4
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 11dcc8f3d151..dbbaf3aa0dd9 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1037,6 +1037,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),