freepascal.compiler/tests/webtbf/tw14713.pp

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

{$mode delphi}

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