summaryrefslogtreecommitdiff
path: root/flang
diff options
context:
space:
mode:
Diffstat (limited to 'flang')
-rw-r--r--flang/runtime/assign.cpp4
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/runtime/assign.cpp b/flang/runtime/assign.cpp
index 88f5500588bf..9e10e2f491ed 100644
--- 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;
}
}
}