From f8b2091aed6ca42a0cf1fa7b6a920f6c3a5227a9 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Thu, 27 Mar 2025 19:04:28 +0100
Subject: Fix refcount bug with indexing for nested arrays

---
 test/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'test')

diff --git a/test/Main.hs b/test/Main.hs
index be15e65..20b4ef0 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -471,7 +471,8 @@ tests_AD = testGroup "AD"
   -- Regression test for a simplifier bug (89b78d4)
   ,adTestTp "regression-simpl1" (C "" 1) term_regression_simpl1
 
-  ,adTestTp "regression-accum1" (C "" 1 :$ C "" 1) $
+  -- Regression test for refcounts when indexing in nested arrays
+  ,adTestTp "regression-idx1" (C "" 1 :$ C "" 1) $
     fromNamed $ lambda @(TArr N2 R) #L $ body $
       if_ (const_ @TI64 1 Language..> 0)
         (idx0 $ sum1i (build1 1 $ #_ :->
-- 
cgit v1.2.3-70-g09d2