mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 14:13:43 +02:00
38 lines
572 B
ObjectPascal
38 lines
572 B
ObjectPascal
program testmem;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses cmem;
|
|
|
|
Type
|
|
PLongint = ^Longint;
|
|
|
|
Var P : PLongint;
|
|
i : longint;
|
|
err : boolean;
|
|
begin
|
|
P:=GetMem(1000*SizeOf(Longint));
|
|
For I:=0 to 999 do
|
|
P[i]:=i;
|
|
P:=ReallocMem(P,500*SizeOf(Longint));
|
|
For I:=0 to 499 do
|
|
if P[i]<>i Then
|
|
begin
|
|
Writeln ('Oh-oh, ',i,'th index differs.');
|
|
err:=true;
|
|
end;
|
|
FreeMem(P);
|
|
if err then
|
|
halt(1);
|
|
end.
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.1 2004-03-15 21:49:11 peter
|
|
* test for cmem unit
|
|
|
|
Revision 1.3 2002/09/08 15:44:40 michael
|
|
+ fixed log entry
|
|
|
|
}
|