aboutsummaryrefslogtreecommitdiffhomepage
path: root/test-suite
diff options
context:
space:
mode:
authorGravatar Matthieu Sozeau <matthieu.sozeau@inria.fr>2018-06-25 15:11:50 +0200
committerGravatar Matthieu Sozeau <matthieu.sozeau@inria.fr>2018-06-25 15:11:50 +0200
commit24279abf43cfbd65e2fc29f171eb8705fdf61a3e (patch)
treea618b3de5e73f469c0ef8ff4351baf0ab19bb8a2 /test-suite
parent915452f9a73d25e45131edb08531c29a79ab7020 (diff)
parentc15880e6fe79f1d746f47deb22549518f1333c8a (diff)
Merge PR #7559: Existing Class noop when already a class + warning.
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/bugs/closed/5012.v17
1 files changed, 17 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5012.v b/test-suite/bugs/closed/5012.v
new file mode 100644
index 000000000..5326c0fbb
--- /dev/null
+++ b/test-suite/bugs/closed/5012.v
@@ -0,0 +1,17 @@
+Class Foo := { foo : Set }.
+
+Axiom admit : forall {T}, T.
+
+Global Instance Foo0 : Foo
+ := {| foo := admit |}.
+
+Global Instance Foo1 : Foo
+ := { foo := admit }.
+
+Existing Class Foo.
+
+Global Instance Foo2 : Foo
+ := { foo := admit }. (* Error: Unbound method name foo of class Foo. *)
+
+Set Warnings "+already-existing-class".
+Fail Existing Class Foo.