{ %fail }
{ %opt=-vw -Sew }

{$mode delphi}

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