[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Correction bootstrap, ajout ; declaration.

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:0ab2f3b55a2ddd4fe6dbc1910510d5ededf604b8

commit 0ab2f3b55a2ddd4fe6dbc1910510d5ededf604b8
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Mar 14 15:42:06 2025 +0100

    Correction bootstrap, ajout ; declaration.

Diff:
---
 gcc/fortran/trans-array.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index e79b4b40f83b..2f8286dc794a 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -1563,7 +1563,7 @@ copy_descriptor (stmtblock_t *block, tree dest, tree src,
       && dest_ls->akind != src_ls->akind)
     tmp1 = build1 (VIEW_CONVERT_EXPR, TREE_TYPE (dest), src);
   else
-    tmp1 = desc;
+    tmp1 = src;
 
   /* Copy the descriptor for pointer assignments.  */
   gfc_add_modify (block, dest, tmp1);
@@ -1572,7 +1572,7 @@ copy_descriptor (stmtblock_t *block, tree dest, tree src,
   gfc_get_dataptr_offset (block, dest, src, NULL_TREE, subref, src_expr);
 
   /* ....and set the span field.  */
-  tree tmp2
+  tree tmp2;
   if (src_expr->ts.type == BT_CHARACTER)
     tmp2 = gfc_conv_descriptor_span_get (src);
   else