freepascal.compiler/tests/tbs/tb0400.pp

{ %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.