[flang][runtime] Fixed dimension offset computation for MayAlias.

vzakhari · vzakhari · commit 7c7ffa7bab7e · 2023-05-15T10:48:45.000-07:00
Reviewed By: klausler Differential Revision: https://reviews.llvm.org/D150533
diff --git a/flang/runtime/assign.cpp b/flang/runtime/assign.cpp
@@ -129,9 +129,9 @@ static void MaximalByteOffsetRange(
     if (extent > 0) {
       auto sm{dim.ByteStride()};
       if (sm < 0) {
-        least += extent * sm;
+        least += (extent - 1) * sm;
       } else {
-        most += extent * sm;
+        most += (extent - 1) * sm;
       }
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -129,9 +129,9 @@ static void MaximalByteOffsetRange(`
`129`	`129`	`if (extent > 0) {`
`130`	`130`	`auto sm{dim.ByteStride()};`
`131`	`131`	`if (sm < 0) {`
`132`		`- least += extent * sm;`
	`132`	`+ least += (extent - 1) * sm;`
`133`	`133`	`} else {`
`134`		`- most += extent * sm;`
	`134`	`+ most += (extent - 1) * sm;`
`135`	`135`	`}`
`136`	`136`	`}`
`137`	`137`	`}`