fpcsrc/tests/webtbf/tw3631.pp


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

{ %fail }
{ %opt=-Sew -vw }

var
  a : array[0..32] of byte;

procedure p(const a:array of byte);
begin
end;

begin
  p(a);
end.