From cc0dc21e24c2cd45cd1c6723fcd524e6db89f7bd Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Tue, 29 Jul 2014 12:13:28 +0200
Subject: Add test-suite file for bug #3453

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

diff --git a/test-suite/bugs/closed/3453.v b/test-suite/bugs/closed/3453.v
new file mode 100644
index 0000000000..4ee9b400a3
--- /dev/null
+++ b/test-suite/bugs/closed/3453.v
@@ -0,0 +1,10 @@
+Set Primitive Projections.
+Record Foo := { bar : Set }.
+Class Baz (F : Foo) := { qux : F.(bar) }.
+Coercion qux : Baz >-> bar.
+
+Definition f : Foo := {| bar := nat |}.
+Canonical Structure f.
+Check (fun b : Baz f => b : _.(bar)).
+
+(* Error: Found target class bar instead of bar. *)
-- 
cgit v1.2.3