aboutsummaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/runnable/named_block.elna18
1 files changed, 18 insertions, 0 deletions
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.