freepascal.compiler/tests/tf/tf000001.pp

type
  r=record
    a :longint;
  end;
var
  w : ^r;
begin
  if w^<>$1111 then
   writeln;
end.