mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
288a538df5
* fixed bug in whlpview.pas where such an new tree was unintentially
started
git-svn-id: trunk@8422 -
22 lines
244 B
ObjectPascal
22 lines
244 B
ObjectPascal
{ %fail }
|
|
|
|
type
|
|
tobj = object
|
|
function f: integer; virtual;
|
|
end;
|
|
|
|
tobj2 = object(tobj)
|
|
function f: string; virtual;
|
|
end;
|
|
|
|
function tobj.f: integer;
|
|
begin
|
|
end;
|
|
|
|
function tobj2.f:string;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|