freepascal.compiler/tests/webtbf/tw3337.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 3337 }
{ Submitted by "Vincent Snijders" on  2004-10-01 }
{ e-mail: [email protected] }

{$mode objfpc}

type
  TB=class
    function AddNewFile: integer; override;
  end;

function TB.AddNewFile: integer;
begin
  Result:= 5;
end;

begin
end.