From b575036fe804f14b78da74897a74b010cc94f730 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 16 Sep 2026 11:49:35 +0200
Subject: Implement named blocks

---
 testsuite/runnable/named_block.elna | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 testsuite/runnable/named_block.elna

(limited to 'testsuite/runnable')

diff --git a/testsuite/runnable/named_block.elna b/testsuite/runnable/named_block.elna
new file mode 100644
index 0000000..a9c44ed
--- /dev/null
+++ b/testsuite/runnable/named_block.elna
@@ -0,0 +1,18 @@
+var
+  counter: Int := 0
+
+program()
+begin
+  block outer
+    while true do
+      defer
+        counter := counter + 10
+      end;
+      counter := counter + 1;
+      break outer
+    end
+  end;
+  assert(counter = 11)
+return 0u8
+
+end.
-- 
cgit v1.2.3