diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-03-26 21:20:49 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2018-06-04 21:13:46 +0200 |
commit | d6c5c2a98d703e1659e1a0274af03bf50d13ba00 (patch) | |
tree | b30532e4f1afc8328863b9ad826d11e5683b3cc6 /test-suite/bugs | |
parent | ef052549cddf35eed9603caf3c451cec41013078 (diff) |
Tests for part of #7068 and for #7076 (vm/native_compute and return predicate).
Diffstat (limited to 'test-suite/bugs')
-rw-r--r-- | test-suite/bugs/closed/7068.v | 6 | ||||
-rw-r--r-- | test-suite/bugs/closed/7076.v | 4 |
2 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/7068.v b/test-suite/bugs/closed/7068.v new file mode 100644 index 000000000..9fadb195b --- /dev/null +++ b/test-suite/bugs/closed/7068.v @@ -0,0 +1,6 @@ +(* These tests are only about a subset of #7068 *) +(* The original issue is still open *) + +Inductive foo : let T := Type in T := . +Definition bob1 := Eval vm_compute in foo_rect. +Definition bob2 := Eval native_compute in foo_rect. diff --git a/test-suite/bugs/closed/7076.v b/test-suite/bugs/closed/7076.v new file mode 100644 index 000000000..0abc88c28 --- /dev/null +++ b/test-suite/bugs/closed/7076.v @@ -0,0 +1,4 @@ +(* These calls were raising an anomaly at some time *) +Inductive A : nat -> id (nat->Type) := . +Eval vm_compute in fun x => match x in A y z return y = z with end. +Eval native_compute in fun x => match x in A y z return y = z with end. |