diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-20 21:21:43 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-06-08 23:13:09 +0200 |
| commit | c15880e6fe79f1d746f47deb22549518f1333c8a (patch) | |
| tree | bf10110145c0f7c82e82b90d7d25dc5dc23db919 /test-suite | |
| parent | db8f02d2c5ff6ba2ecc8fcc5919c512d07c1a557 (diff) | |
Existing Class noop when already a class + warning.
Fix #5012.
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. |