blob: a259e774dd87e4f2830409eeab9df8f30a5a348f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %norun }
{$mode macpas}
{$warnings off}
program recursivefunctionparam;
function first( function test( theint: integer): boolean): integer;
begin {not implemented} end;
function find: integer;
function test( theint: integer): boolean;
begin
first( test)
end;
begin
{not implemented}
end;
begin
end.
|
