diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-04 19:47:42 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2009-03-04 19:47:42 +0000 |
| commit | f8ae76ca7965e176094496bf17dd77bff1acae10 (patch) | |
| tree | f5f61a9fc0a54a4ac2b53178599542ec760334ce /test-suite/success/ltac.v | |
| parent | 93b16c35bb0177847d91f26d2d8ad45f20fe4b5c (diff) | |
illegal tactic application was having Ltac interpreter loop
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@11963 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/ltac.v')
| -rw-r--r-- | test-suite/success/ltac.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/ltac.v b/test-suite/success/ltac.v index 757cf6a4e..b1c645623 100644 --- a/test-suite/success/ltac.v +++ b/test-suite/success/ltac.v @@ -220,3 +220,11 @@ Z1 O. Z2 ltac:O. exact I. Qed. + +(* Illegal application used to make Ltac loop. *) + +Section LtacLoopTest. + Ltac f x := idtac. + Goal True. + Timeout 1 try f()(). +End LtacLoopTest. |