mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 22:48:00 +02:00
21 lines
248 B
ObjectPascal
21 lines
248 B
ObjectPascal
{ %VERSION=1.1 }
|
|
{$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.
|