diff options
| author | Eugen Wissner <belka@caraus.de> | 2026-10-12 22:25:46 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2026-10-12 22:25:46 +0200 |
| commit | de6ecae0f072bb32be95382c536a517eabe4b1f1 (patch) | |
| tree | 2a337dea0f9b124da9436c16e80b7d8f3f8000fb /testsuite/runnable/case_constant_label.elna | |
| parent | da1e84e33de1a9c2cc1745b8f42bc7f0cee8fc5c (diff) | |
| download | elna-de6ecae0f072bb32be95382c536a517eabe4b1f1.tar.gz | |
Diffstat (limited to 'testsuite/runnable/case_constant_label.elna')
| -rw-r--r-- | testsuite/runnable/case_constant_label.elna | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/testsuite/runnable/case_constant_label.elna b/testsuite/runnable/case_constant_label.elna index 1b01736..3f7a483 100644 --- a/testsuite/runnable/case_constant_label.elna +++ b/testsuite/runnable/case_constant_label.elna @@ -1,14 +1,15 @@ program() +const + BASE = 2 + LIMIT = BASE var - base: const Int := 2 - limit: const Int := base x: Int := 2 matched: Bool := false begin case x of 1: assert(false) - | limit: matched := true + | LIMIT: matched := true end; assert(matched) end. |