diff options
| author | Emilio Jesus Gallego Arias | 2020-05-14 01:36:44 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-05-14 01:36:44 +0200 |
| commit | 9c639d60715259bf73c1455089fb0c25dc597bdf (patch) | |
| tree | c053e8f0e1361a9c0277d074588ecb52f8dc91df | |
| parent | 2a43f3ef8e932f55a8f697ae24fef7075e62eb54 (diff) | |
| parent | 354cf4233194e948a4630bf180643974017dc342 (diff) | |
Merge PR #12315: Tests for bugs #9583 (fixed by #11613) and #9679.
Reviewed-by: ejgallego
| -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 ']' ']'" + ). |