From 7ce8f62d26c1dbe3791d81e97b95d79eee4c0153 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 28 Aug 2014 13:41:03 +0200
Subject: Adding test-suite for bug #3212.

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

diff --git a/test-suite/bugs/closed/3212.v b/test-suite/bugs/closed/3212.v
new file mode 100644
index 0000000000..53d8dfe326
--- /dev/null
+++ b/test-suite/bugs/closed/3212.v
@@ -0,0 +1,10 @@
+Lemma H : Prop = Prop.
+reflexivity.
+Qed.
+
+Lemma foo : match H in (_ = X) return X with
+  | eq_refl => True
+end.
+Proof.
+Fail destruct H.
+Abort.
-- 
cgit v1.2.3