summaryrefslogtreecommitdiff
path: root/tests/webtbs/tw4247.pp
blob: a18f8e8c1a2348f68ecdcd600947c7d281b8935c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ %OPT=-gh }
{ Source provided for Free Pascal Bug Report 4247 }
{ Submitted by "Martin Schreiber" on  2005-08-02 }
{ e-mail:  }
program project1;
 //compile with -ghl
var
 po1,po2: pointer;
begin
 HaltOnNotReleased := true;
 getmem(po1,500);
 getmem(po2,500);
 reallocmem(po1,400);
 reallocmem(po1,300);
 reallocmem(po1,200);
 reallocmem(po1,400); //crash with error 204
 reallocmem(po1,600);
 freemem(po1,600);
 freemem(po2,500);
end.