blob: c6d6222ca901c595a493f1dae281075e264148eb (
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
{ Source provided for Free Pascal Bug Report 2729 }
{ Submitted by "marco (the gory bugs department)" on 2003-10-09 }
{ e-mail: }
{$mode delphi}
type
tbla= class(tobject)
l : longint;
class function bla:tbla;
function get : longint;virtual;
procedure doset;
end;
procedure tbla.doset;
begin
l:=$12345678;
end;
function tbla.get : longint;
begin
result:=l;
end;
class function tbla.bla:tbla;
begin
result:=Create;
end;
var
bla : tbla;
begin
bla:=tbla.bla;
bla.doset;
if bla.get<>$12345678 then
begin
writeln('Problem');
halt(1);
end;
bla.free;
end.
|
