@@ -1,3 +1,5 @@
+{$mode objfpc}
+
procedure Test(ParArr :array of const);
begin
writeln(ParArr[0].vtype,' ',vtObject,' ',vtclass);