diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-25 15:11:50 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2018-06-25 15:11:50 +0200 |
| commit | 24279abf43cfbd65e2fc29f171eb8705fdf61a3e (patch) | |
| tree | a618b3de5e73f469c0ef8ff4351baf0ab19bb8a2 /test-suite | |
| parent | 915452f9a73d25e45131edb08531c29a79ab7020 (diff) | |
| parent | c15880e6fe79f1d746f47deb22549518f1333c8a (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.v | 17 |
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. |