freepascal.compiler/tests/test/trtti2.pp

type
   pbyte = ^byte;

begin
   if pbyte(typeinfo(longint))^<>1 then
     halt(1);
end.