Add test-suite file for #3960.

1 files changed, 26 insertions, 0 deletions

diff --git a/test-suite/bugs/closed/3960.v b/test-suite/bugs/closed/3960.v
new file mode 100644
index 000000000..e56dcef74
--- /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