freepascal.compiler/tests/tbf/tb0159.pp

{%fail}
program tb0159;

var x:pointer;

begin
  x:=0;
end.