https://gcc.gnu.org/g:963292d4113acc719af10d93e3d2c39b92e540d0
commit 963292d4113acc719af10d93e3d2c39b92e540d0 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 4de454db646c..d8717f570c7f 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