mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-19 09:51:32 +02:00
26 lines
437 B
ObjectPascal
26 lines
437 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ derived from source for Bug Report 1203 }
|
|
{ in FPC mode this shouldn't compile }
|
|
{$mode objfpc}
|
|
type
|
|
someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
|
|
a=class
|
|
protected
|
|
fondisplay : someprocedureofobjectype;
|
|
public
|
|
a:longint;
|
|
end;
|
|
|
|
b=class(A)
|
|
protected
|
|
fondisplay : someprocedureofobjectype;
|
|
public
|
|
a:longint;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|
|
|