aboutsummaryrefslogtreecommitdiff
path: root/test-suite/bugs
diff options
context:
space:
mode:
authorPierre-Marie Pédrot2015-10-12 18:54:31 +0200
committerPierre-Marie Pédrot2015-10-12 18:54:31 +0200
commit10e5883fed21f9631e1aa65adb7a7e62a529987f (patch)
treef04cfc472e6345585eb5f606e2957fcf0f2740ea /test-suite/bugs
parent75c5e421e91d49eec9cd55c222595d2ef45325d6 (diff)
parent26974a4a2301cc7b1188a3f2f29f3d3368eccc0b (diff)
Merge branch 'v8.5'
Diffstat (limited to 'test-suite/bugs')
-rw-r--r--test-suite/bugs/closed/4366.v15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/4366.v b/test-suite/bugs/closed/4366.v
new file mode 100644
index 0000000000..6a5e9a4023
--- /dev/null
+++ b/test-suite/bugs/closed/4366.v
@@ -0,0 +1,15 @@
+Fixpoint stupid (n : nat) : unit :=
+match n with
+| 0 => tt
+| S n =>
+ let () := stupid n in
+ let () := stupid n in
+ tt
+end.
+
+Goal True.
+Proof.
+pose (v := stupid 24).
+Timeout 2 vm_compute in v.
+exact I.
+Qed.