blob: c55a4340a121ae9d4d220d525a343703a877dae7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
program fpc_procedural_type_bug;
{$mode objfpc}
type
tproc = procedure(const aparam : string);
tobj = class
class procedure proc(const aparam : string); static;
end;
var
s: string;
class procedure tobj.proc(const aparam : string);
begin
s:=aparam;
end;
var
p : tproc;
begin
p := @tobj.proc;
p('abc');
if s<>'abc' then
halt(1);
end.
|
