freepascal.compiler/tests/tbf/tb0156.pp

{ %fail }

var
  _self : pointer;
begin
  ppointer(_self+vmt_pos)^:=0;
end.