summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbf/tb0098.pp
blob: 2dac9fd94a281b9924c614af368da24e0953cbb6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{ %FAIL }

{ derived from Web Bug Report 1203 }
{$mode objfpc}
type
     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
     a=object
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

     b=object(A)
     protected
        fondisplay : someprocedureofobjectype;
     public
        a:longint;
     end;

begin
end.