diff options
| author | barras | 2010-07-28 11:00:17 +0000 |
|---|---|---|
| committer | barras | 2010-07-28 11:00:17 +0000 |
| commit | 8529f861ab504e7f891d7b9b3f4ad5aa2c09710a (patch) | |
| tree | 2bff72cf07719f4441d756ca016ac9c7c9323146 /test-suite | |
| parent | f611879a40204025e6f14ab46836a244607fc416 (diff) | |
fixed bug #2139: compiled cofix loops, missing offset to evaluate cofix bodies
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13337 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/2319.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/2319.v b/test-suite/bugs/closed/2319.v new file mode 100644 index 0000000000..e06fb97590 --- /dev/null +++ b/test-suite/bugs/closed/2319.v @@ -0,0 +1,13 @@ +Section S. + + CoInductive A (X: Type) := mkA: A X -> A X. + Variable T : Type. + + (* This used to loop (bug #2319) *) + Timeout 5 Eval vm_compute in cofix s : A T := mkA T s. + + CoFixpoint s : A T := mkA T s + with t : A unit := mkA unit (mkA unit t). + Timeout 5 Eval vm_compute in s. + +End S.
\ No newline at end of file |