path: root/fpcsrc/tests/tbs/tb0539.pp

{$mode delphi}
const
  o = TObject(0);

var
  o2 : TObject;

{$r+}
begin
  o2:=o;
end.