aboutsummaryrefslogtreecommitdiff
path: root/testsuite/runnable/for_defer.elna
blob: 7a350a0e4ae412dbece1677f199c8f73c6e42cbb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
program()
var
  array: [2]Int := [0, 0]

begin
  for x of array do
    defer
      x^ := 1
    end
  end;
  assert(array = [1, 1])
end.