freepascal.compiler/tests/tbf/tb0085.pp

{ %FAIL }

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