Test suite results for test file tbs/tb0457.pp

Test run data :

Test file "tbs/tb0457.pp" information:

t_id 1165
t_version 1.1
t_adddate 2003/10/26
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 568888.

Source:

{ %version=1.1}
{$mode objfpc}
program testa;

Type
  TA = array of Integer;

var
  A,B : TA;
  I,J : Integer;
begin
  Setlength(A,10);
  For I:=0 to 9 do
      A[I]:=I;
  B:=Copy(A,3,6);
  if High(B)<>5 then
    begin
      writeln('Error 1');
      halt(1);
    end;
  For I:=0 to High(B) do
    if b[i]<>i+3 then
      begin
        writeln('Error 2');
        halt(1);
      end;
end.

Link to SVN view of tbs/tb0457.pp source.