Merge PR #8892: Fix part of #8224: grounding open term in fixpoints

1 files changed, 9 insertions, 0 deletions

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.