From 4d0f940f258d9bd0684607f996559d9d47968fdd Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 12 Mar 2025 22:23:18 +0100
Subject: bench: Measure binary op on mismatched strides

---
 bench/Main.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'bench/Main.hs')

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)
-- 
cgit v1.2.3-70-g09d2