From c15880e6fe79f1d746f47deb22549518f1333c8a Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Sun, 20 May 2018 21:21:43 +0200 Subject: Existing Class noop when already a class + warning. Fix #5012. --- test-suite/bugs/closed/5012.v | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 test-suite/bugs/closed/5012.v (limited to 'test-suite') 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. -- cgit v1.2.3