testsuite/runnable/named_block.elna


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

program()
var
  counter: Int := 0

begin
  block outer
    while true do
      defer
        counter := counter + 10
      end;
      counter := counter + 1;
      break outer
    end
  end;
  assert(counter = 11)
end.