From a3c65aaacf54573be7c20e7ec26f774f25c2a0e7 Mon Sep 17 00:00:00 2001
From: Troels Henriksen <athas@sigkill.dk>
Date: Tue, 7 Nov 2023 17:14:45 +0100
Subject: [PATCH] Add test for #2040.

---
 tests/issue2040.fut | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/issue2040.fut

diff --git a/tests/issue2040.fut b/tests/issue2040.fut
new file mode 100644
index 0000000000..6ae6633f75
--- /dev/null
+++ b/tests/issue2040.fut
@@ -0,0 +1,9 @@
+def fun [k] (n:i64) (op:[k]f32 -> *[k]f32) (_:[k]f32) =
+  let process (Q:*[n+1][k]f32) i =
+    let q = op Q[i]
+    in Q with [i+1] = q
+  let Q = replicate (n+1) (replicate k 0)
+  let Q = process Q 0
+  in Q
+
+entry test n k = fun n copy (replicate k 0)