From 86dd49a5a28eb71c0ce2cd2020e9f29ec4bd1f5a Mon Sep 17 00:00:00 2001
From: Matthieu Sozeau
Date: Mon, 16 Feb 2015 20:59:09 +0100
Subject: Add test-suite file for #3960.

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

diff --git a/test-suite/bugs/closed/3960.v b/test-suite/bugs/closed/3960.v
new file mode 100644
index 0000000000..e56dcef74f
--- /dev/null
+++ b/test-suite/bugs/closed/3960.v
@@ -0,0 +1,26 @@
+Require Program.Tactics.
+
+Axiom foo : nat -> Prop.
+
+Axiom fooP : forall n, foo n.
+
+Class myClass (A: Type) :=
+  {
+    bar : A -> Prop
+  }.
+
+Program Instance myInstance : myClass nat :=
+  {
+    bar := foo
+  }.
+
+Class myClassP (A : Type)  :=
+  {
+    super :> myClass A;
+    barP : forall (a : A), bar a
+  }.
+
+Instance myInstanceP : myClassP nat :=
+  {
+    barP := fooP
+  }.
\ No newline at end of file
-- 
cgit v1.2.3