mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 03:08:20 +02:00
24 lines
435 B
ObjectPascal
24 lines
435 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.
|