fpcsrc/tests/webtbs/tw8371.pp


1
2
3
4
5
6
7
8
9
10
11
12


uses
  classes;

procedure testparam(aarray: array of tclass);
begin
end;

begin
  testparam([nil, tlist, tstringlist]);
end.