bench: Measure binary op on mismatched strides

1 files changed, 4 insertions, 0 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
index f3068d8..8a1f165 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -74,6 +74,10 @@ main = defaultMain
       let n = 1_000_000
       in nf (\a -> runScalar (rsumOuter1 a))
             (riota @Double n)
+    ,bench "sum(*) Double [1e6] stride 1; -1" $
+      let n = 1_000_000
+      in nf (\(a, b) -> runScalar (rsumOuter1 (a * b)))
+            (riota @Double n, rrev1 (riota n))
     ,bench "dotprod Float [1e6]" $
       let n = 1_000_000
       in nf (\(a, b) -> rdot a b)