fpcsrc/tests/webtbs/tw1351.pp


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

{$mode objfpc}

procedure Test(ParArr :array of const);
begin
   writeln(ParArr[0].vtype,' ',vtObject,' ',vtclass);
   if ParArr[0].vtype<>vtObject then
    halt(1);
end;

begin
        Test([TObject.Create]);
end.