Test suite results for test file test/testcmem.pp

Test run data :

Test file "test/testcmem.pp" information:

t_id 1277
t_adddate 2004/03/17
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

Log of 936404:

Runtime error 216 at $004583FC
  $004583FC

Source:

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: testcmem.pp,v $
  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

}

Link to SVN view of test/testcmem.pp source.