blob: 0328ba31099eea500bf9f778c348a956452fdb53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3337 }
{ Submitted by "Vincent Snijders" on 2004-10-01 }
{ e-mail: vslist@zonnet.nl }
{$mode objfpc}
type
TB=class
function AddNewFile: integer; override;
end;
function TB.AddNewFile: integer;
begin
Result:= 5;
end;
begin
end.
|
