fpcsrc/tests/tbs/tb0456.pp


1
2
3
4
5
6
7
8
9
10

{$ifdef fpc}{$mode delphi}{$endif}

type
  c=class
   function Byte: Byte; virtual; abstract;
   function P(b: Byte):boolean; virtual; abstract;
  end;

begin
end.