diff --git a/tests/webtbs/tw2946.pp b/tests/webtbs/tw2946.pp
new file mode 100644
index 0000000000..0b55b552c7
--- /dev/null
+++ b/tests/webtbs/tw2946.pp
@@ -0,0 +1,10 @@
+{ Source provided for Free Pascal Bug Report 2946 }
+{ Submitted by "Marco (Gory Bugs Department)" on  2004-02-06 }
+{ e-mail:  }
+
+{$ifdef fpc}{$mode Delphi}{$endif}
+var p:array of pchar;
+    t: ^pchar;
+begin
+  p:=pointer(t);
+end.
\ No newline at end of file