summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw3644.pp
blob: 3dd9746ccf666b6f2089e5569a5d1321f1a2fd98 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ %fail }

{ Source provided for Free Pascal Bug Report 3644 }
{ Submitted by "Nicola Lugato" on  2005-02-10 }
{ e-mail:  }

{$mode delphi}

procedure callme(y:array of const);
begin
end;

procedure callme2(x:array of const);
begin
callme([x]);
end;

begin
callme([1,2,'ciao']);
end.