blob: d44f18d30a39e306cd7fd7f71deccf0d1e0b2947 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 3259 }
{ Submitted by "Andreas Hausladen" on 2004-08-18 }
{ e-mail: Andreas.Hausladen@gmx.de }
{$mode objfpc}
unit tw3259;
interface
implementation
function MyFunc(forward: Integer): Integer; forward;
function MyFunc(forward: Integer): Integer;
begin
Result := forward;
end;
end.
|
