summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw3631.pp
blob: cd0eb48c94718c7a405a84675db70796f18f7350 (plain)
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.