summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw8264a.pp
blob: cb90253418b38d56909f463f0dedae6ac2527c47 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
{ %fail }
{ %opt=-Sew -vw }

{$mode delphi}

function calclength1: integer;
var
  a: array of byte;
begin
  result := length(a);
end;


begin
end.