fpcsrc/tests/tbs/tb0534.pp


1
2
3
4
5
6
7
8
9
10
11

{ %opt=-Sew -vw }

{$mode objfpc}

procedure test(out l: array of char);
begin
  writeln(length(l));
end;

begin
end.