freepascal.compiler/tests/webtbf/tw9522e.pp

{ %fail }

type
  tobj = object b : byte; end;
begin
        writeln(tobj(65).b);
end.