diff options
| author | Nicolas Koenig <koenigni@student.ethz.ch> | 2020-11-29 15:01:45 +0100 |
|---|---|---|
| committer | Nicolas Koenig <koenigni@student.ethz.ch> | 2020-11-29 15:01:56 +0100 |
| commit | 1e13c758928fb54115af39cbd50d7c41ab59f5c2 (patch) | |
| tree | 9c0f02f1b176854623b112c573980416abcc89bb | |
| parent | 660f011333a1c0709bec953f0940bb85a4f62773 (diff) | |
| download | gcc-1e13c758928fb54115af39cbd50d7c41ab59f5c2.zip gcc-1e13c758928fb54115af39cbd50d7c41ab59f5c2.tar.gz gcc-1e13c758928fb54115af39cbd50d7c41ab59f5c2.tar.bz2 | |
Fixed the rest of the offset calculation issue.
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index ec350c3..d4f5c3a 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 |