testsuite/runnable/const_section.elna


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

program()
const
  BUFFER_SIZE = 3
var
  arr: [BUFFER_SIZE]Int
begin
  arr[1] := 10;
  arr[BUFFER_SIZE] := 30;
  assert(arr[1] = 10);
  assert(arr[3] = 30);
  block my_block
    const LOCAL_VAL = 42
  begin
    assert(LOCAL_VAL = 42)
  end
end.