diff options
| author |  Benjamin Barenblat <bbaren@debian.org> | 2018-12-29 14:31:32 -0500 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@debian.org> | 2018-12-29 14:31:32 -0500 |
| commit | 2708a015fcf65f72328be4296a00dd32b1f1c17a (patch) | |
| tree | 696f9b5fb84817e1a5c8d9271976a92e25aef18a /test-suite/bugs/closed/6129.v | |
| parent | d7d80c5bea564b7cb0eadc33e9ee38c9d9de1cd8 (diff) | |
| parent | 9043add656177eeac1491a73d2f3ab92bec0013c (diff) | |
Updated version 8.8.2 from 'upstream/8.8.2'
with Debian dir a16bcf46abacaf1a684eda04f02555c984bf540d
Diffstat (limited to 'test-suite/bugs/closed/6129.v')
| -rw-r--r-- | test-suite/bugs/closed/6129.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/6129.v b/test-suite/bugs/closed/6129.v new file mode 100644 index 00000000..e4a2a2ba --- /dev/null +++ b/test-suite/bugs/closed/6129.v @@ -0,0 +1,9 @@ +(* Make definition of coercions compatible with local definitions. *) + +Record foo (x : Type) (y:=1) := { foo_nat :> nat }. +Record foo2 (x : Type) (y:=1) (z t: Type) := { foo_nat2 :> nat }. +Record foo3 (y:=1) (z t: Type) := { foo_nat3 :> nat }. + +Check fun x : foo nat => x + 1. +Check fun x : foo2 nat nat nat => x + 1. +Check fun x : foo3 nat nat => x + 1. |