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

Reviewed By: klausler Differential Revision: https://reviews.llvm.org/D150533
llvm · May 15, 2023 · 7c7ffa7 · 7c7ffa7
1 parent fee61d5
commit 7c7ffa7
Showing 1 changed file with 2 additions and 2 deletions.
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;
       }
     }
   }