diff options
| author | Hugo Herbelin | 2020-05-13 17:33:27 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2020-05-13 20:23:44 +0200 |
| commit | 354cf4233194e948a4630bf180643974017dc342 (patch) | |
| tree | 11f1b279387143dd106799c33aab89d1253bcaa2 | |
| parent | 67f0e9fd40dc2f7b30a8aec4c7efb032e61a001e (diff) | |
Tests for bugs #9583 (fixed by #11613) and #9679.
| -rw-r--r-- | test-suite/bugs/closed/bug_9583.v | 7 | ||||
| -rw-r--r-- | test-suite/bugs/closed/bug_9679.v | 6 |
2 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/bug_9583.v b/test-suite/bugs/closed/bug_9583.v new file mode 100644 index 0000000000..14232e8578 --- /dev/null +++ b/test-suite/bugs/closed/bug_9583.v @@ -0,0 +1,7 @@ +(* Was causing a stack overflow before #11613 *) +Declare Custom Entry bla. +Notation "[ t ]" := (t) (at level 0, t custom bla at level 0). +Notation "] t [" := (t) (in custom bla at level 0, t custom bla at level 0). +Notation "t" := (t) (in custom bla at level 0, t constr at level 9). +Notation "0" := (0) (in custom bla at level 0). +Check fun x => [ ] x [ ]. diff --git a/test-suite/bugs/closed/bug_9679.v b/test-suite/bugs/closed/bug_9679.v new file mode 100644 index 0000000000..24e69d23f9 --- /dev/null +++ b/test-suite/bugs/closed/bug_9679.v @@ -0,0 +1,6 @@ +(* Was raising an anomaly *) +Notation "'[#' ] f '|' x .. z '=n>' b" := + (fun x => .. (fun z => f b) ..) + (at level 201, x binder, z binder, + format "'[ ' [# ] '[' f | ']' x .. z =n> '[' b ']' ']'" + ). |