fpc/tests/test/tsealed6.pp
2010-04-01 14:36:33 +00:00

16 lines
188 B
ObjectPascal

{$ifdef fpc}
{$mode objfpc}
{$endif}
type
TAbstractObject = object abstract abstract abstract
public
end;
TSealedObject = object sealed sealed sealed
public
end;
begin
end.