blob: c59d28e38accbb58f5124c206a9f851cd68899c9 (
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 3143 }
{ Submitted by "Martin Schreiber" on 2004-06-06 }
{ e-mail: }
program project1;
{$mode objfpc}{$H+}
uses
Classes;
type
testrecty = record
refcount: integer;
end;
var
fonts: array of testrecty;
test: integer;
function registerfont(var info: integer): integer;
begin
result:= 0;
if result = 0 then begin
result:= length(fonts)+1;
setlength(fonts,result);
end;
test:= result; //test = 1
with fonts[result-1] do begin
refcount:= 1;
end;
test:= result; //exp: test = 1
//act: test = 4617532
end;
var
int1: integer;
begin
test:= registerfont(int1);
writeln(test);
if test<>1 then
halt(1);
end.
|
