freepascal.compiler/tests/webtbf/tw14713a.pp

{ %fail }

{$mode delphi}

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