fpcsrc/tests/webtbs/tw4055.pp


1
2
3
4
5
6
7
8
9
10
11

{$WRITEABLECONST OFF}

procedure TestBuf(const Buf; Size: Integer);
begin
end;

const A : Byte = 1;

begin
  TestBuf(A, 1);
end.