diff --git a/tests/tbs/tbs0400.pp b/tests/tbs/tbs0400.pp
new file mode 100644
index 0000000000..181d7ff952
--- /dev/null
+++ b/tests/tbs/tbs0400.pp
@@ -0,0 +1,16 @@
+{ %version=1.1}
+{$mode delphi}
+var
+   b : byte;
+   i : smallint;
+   i64 : int64;
+   q : qword;
+   p : pointer;
+
+begin
+   p:=pointer(b);
+   p:=pointer(i);
+   p:=pointer(i64);
+   p:=pointer(q);
+end.
+