mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
20 lines
231 B
ObjectPascal
20 lines
231 B
ObjectPascal
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
|
|
type
|
|
i1 = interface
|
|
procedure intfp;
|
|
end;
|
|
|
|
tc1 = class(tinterfacedobject,i1)
|
|
procedure i1.intfp = p;
|
|
procedure p;
|
|
end;
|
|
|
|
procedure tc1.p;
|
|
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|