blob: d84328af4990d63e449ca78d69f87c9c2a83b12a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ Source provided for Free Pascal Bug Report 1907 }
{ Submitted by "Michail A.Baikov" on 2002-03-31 }
{ e-mail: russia@freepascal.org }
{$ifdef fpc}{$MODE DELPHI}{$endif}
function f:pointer;
begin
f:=nil;
end;
function f1(k:byte):Pointer; cdecl;
begin
result:=f;
end;
var
a:function (k:byte):Pointer; cdecl;
b:function:Pointer;
begin
a:=f1;
b:=a(0);
end.
|
