https://gcc.gnu.org/g:43d46a0f57a09f7c0bacaa60d4dfd61132d9683e
commit 43d46a0f57a09f7c0bacaa60d4dfd61132d9683e
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Thu Jun 19 18:04:56 2025 +0200
Correction pr43808
Diff:
---
gcc/fortran/trans-expr.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index bd8f28724247..28ad581235d1 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -9590,8 +9590,8 @@ gfc_trans_alloc_subarray_assign (tree dest, gfc_component
* cm,
/* Shift the lbound and ubound of temporaries to being unity,
rather than zero, based. Always calculate the offset. */
+ gfc_conv_descriptor_offset_set (&block, dest, gfc_index_zero_node);
offset = gfc_conv_descriptor_offset_get (dest);
- gfc_add_modify (&block, offset, gfc_index_zero_node);
tmp2 =gfc_create_var (gfc_array_index_type, NULL);
for (n = 0; n < expr->rank; n++)
