fpcsrc/tests/webtbf/tw8264a.pp


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.