diff --git a/tests/webtbs/tw1351.pp b/tests/webtbs/tw1351.pp
new file mode 100644
index 0000000000..63064a5987
--- /dev/null
+++ b/tests/webtbs/tw1351.pp
@@ -0,0 +1,10 @@
+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.