mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 17:19:26 +02:00
21 lines
218 B
ObjectPascal
21 lines
218 B
ObjectPascal
{ %VERSION=1.1 }
|
|
{$mode objfpc}
|
|
|
|
type
|
|
i1 = interface
|
|
procedure intfp;
|
|
end;
|
|
|
|
tc1 = class(tobject,i1)
|
|
procedure i1.intfp = p;
|
|
procedure p;
|
|
end;
|
|
|
|
procedure tc1.p;
|
|
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|