fpc/tests/webtbs/tw25101.pp

15 lines
197 B
ObjectPascal

program tw25101.pp;
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
type
TTest = class(TObject)
public
procedure Test(); virtual; deprecated 'Do not use this method'; abstract;
end;
begin
end.