commit b8ecdcdd817cfe8ef187503726400971357c6854
author Peter Steinfeld <psteinfeld@nvidia.com> Tue Aug 17 21:57:42 2021
committer Peter Steinfeld <psteinfeld@nvidia.com> Tue Aug 17 22:20:15 2021
tree f2e9f8e5daff19e4c29ab3a2eed30a7ae8e43c35
parent f0fcd42495432670664a661e75e7cae7e904dd3e

[flang] Fix the vector version of EOSHIFT with a BOUNDARY argument

When the vector version of EOSHIFT was called, the BOUNDARY argument was being
ignored.  I fixed that and added a test that would not pass without this fix.

Differential Revision: https://reviews.llvm.org/D108249

flang/runtime/transformational.cpp

diff --git a/flang/runtime/transformational.cpp b/flang/runtime/transformational.cpp
index 3fc294b..1bf9338 100644
--- a/flang/runtime/transformational.cpp
+++ b/flang/runtime/transformational.cpp
@@ -284,6 +284,8 @@
     SubscriptValue sourceAt{lb + j - 1 + shift};
     if (sourceAt >= lb && sourceAt < lb + extent) {
       CopyElement(result, &j, source, &sourceAt, terminator);
+    } else if (boundary) {
+      CopyElement(result, &j, *boundary, 0, terminator);
     }
   }
 }