mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 15:43:41 +02:00
25 lines
388 B
ObjectPascal
25 lines
388 B
ObjectPascal
{ %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.
|
|
|
|
|