1{ %norun }
2
3{$ifdef fpc}
4{$mode delphi}
5{$h+}
6{$endif}
7
8uses
9  Variants;
10
11procedure test(const a: array of string);
12begin
13end;
14
15var
16  a,b: variant;
17begin
18  a:=1;
19  b:=2;
20  test([a,b]);
21end.
22