From cd2f7b4e19d4f231170a73f87800144963f8f1ad Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Thu, 1 Nov 2018 23:28:03 +0100
Subject: Fixing one instance of bug #8224 (grounding term w/o knowing if it
 has evars).

---
 test-suite/bugs/closed/bug_8224.v | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 test-suite/bugs/closed/bug_8224.v

(limited to 'test-suite')

diff --git a/test-suite/bugs/closed/bug_8224.v b/test-suite/bugs/closed/bug_8224.v
new file mode 100644
index 0000000000..42dd47d48c
--- /dev/null
+++ b/test-suite/bugs/closed/bug_8224.v
@@ -0,0 +1,9 @@
+(* Checking that terms are evar-free before being grounded *)
+
+(* This used to raise an anomaly in 8.9 beta *)
+
+Fail Fixpoint restrict f n :=
+  match n with
+  | O => nil
+  | S n => cons (f n) (restrict f n)
+  end.
-- 
cgit v1.2.3