fpc/tests/webtbs/tw0789.pp
2002-09-07 15:40:30 +00:00

15 lines
236 B
ObjectPascal

{$MODE DELPHI}
uses sysutils;
procedure tt (params : array of const);
begin
// this call generate Access violation
writeln (Format ('Params test %d', params));
end;
begin
writeln (Format ('First test %d', [1]));
tt ([1]);
end.