freepascal.compiler/tests/webtbf/tw4144.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 4144 }
{ Submitted by "Wiktor Sywula" on  2005-06-30 }
{ e-mail: [email protected] }
procedure foo;
type
   bar = object
     constructor init;
     procedure zzyzzy; virtual;
   end;
begin
end;

begin
end.