summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw0789.pp
blob: 2e11316c0c9181f3b1181c130dc8e9d0dc46797e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{$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.