*** empty log message ***

tests/tbs/tb0400.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.
+