diff options
Diffstat (limited to 'flang')
-rw-r--r-- | flang/runtime/assign.cpp | 4 |
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; } } } |