* objfpc mode added

tests/webtbs/tw1351.pp

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