{ %fail }

{$mode delphi}

var
  p: pointer;
begin
  p:=1;
end.