diff --git a/tests/webtbs/tw1567.pp b/tests/webtbs/tw1567.pp
new file mode 100644
index 0000000000..fe8b0498f7
--- /dev/null
+++ b/tests/webtbs/tw1567.pp
@@ -0,0 +1,12 @@
+procedure hallo(a:array of word);
+begin
+   writeln(a[0],' ',a[1],' ',a[2]);
+   if (a[0]<>999) or
+      (a[1]<>999) or
+      (a[2]<>999) then
+    halt(1);
+end;
+
+begin
+   hallo([999,999,999]);
+end.