From 3847c6ae2d5eb581dac88629e7534aa42e143411 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 22 Oct 2024 23:46:39 +0200
Subject: Fix interpreter bug

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

(limited to 'test')

diff --git a/test/Main.hs b/test/Main.hs
index f779352..a3fa484 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -241,6 +241,9 @@ tests = checkParallel $ Group "AD"
       let_ #q (pair (snd_ #p * fst_ #p + #y) #x) $
         fst_ #q * #x + snd_ #q * fst_ #p)
 
+  ,("build0 const", adTest $ fromNamed $ lambda @(TScal TF64) #x $ body $
+      idx0 $ build SZ nil $ #idx :-> const_ 0.0)
+
   ,("build0", adTest $ fromNamed $ lambda @(TArr N0 _) #x $ body $
       idx0 $
         build SZ (shape #x) $ #idx :-> #x ! #idx)
-- 
cgit v1.2.3-70-g09d2