From 1e13c758928fb54115af39cbd50d7c41ab59f5c2 Mon Sep 17 00:00:00 2001 From: Nicolas Koenig Date: Sun, 29 Nov 2020 15:01:45 +0100 Subject: [PATCH] Fixed the rest of the offset calculation issue. --- gcc/fortran/trans-array.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index ec350c370fe6..d4f5c3a7dad9 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -3092,7 +3092,7 @@ gfc_conv_ss_descriptor (stmtblock_t * block, gfc_ss * ss, int base) { gfc_ref *co_ref = cas_array_ref (ref); if (co_ref) - tmp = cas_add_this_image_offset (tmp, se.expr,&co_ref->u.ar, 1, 1); + tmp = cas_add_this_image_offset (tmp, se.expr,&co_ref->u.ar, 1, 0); } /* If this is a variable or address of a variable we use it directly. Otherwise we must evaluate it now to avoid breaking dependency -- 2.47.2