diff options
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 b6aa1e7051..99cfe01779 100644 --- a/test-suite/success/ltac.v +++ b/test-suite/success/ltac.v @@ -145,3 +145,11 @@ Ltac check_binding y := cut ((fun y => y) = S). Goal True. check_binding true. Abort. + +(* Check that variables explicitly parsed as ltac variables are not + seen as intro pattern or constr (bug #984) *) + +Ltac afi tac := intros; tac. +Goal 1 = 2. +afi ltac:auto. + |