Test suite results for test file webtbs/tw2159.pp

Test run data :

Test file "webtbs/tw2159.pp" information:

t_id 908
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934953.

Source:

{ %version=1.1 }

{ Source provided for Free Pascal Bug Report 2159 }
{ Submitted by "Yakov Sudeikin" on  2002-10-03 }
{ e-mail: yashka@exebook.com }
{$ifdef fpc}{$mode objfpc}{$endif}

var
 a,b,c: array of string;
begin
 setlength(a, 2);
 a[0] := 'asd';
 a[1] := 'qwe';
 b := copy(a);
 c := copy(a, 1, 1);
 if b[0]<>'asd' then
  begin
    writeln('Error 1');
    halt(1);
  end;
 if b[1]<>'qwe' then
  begin
    writeln('Error 2');
    halt(1);
  end;
 if c[0]<>'qwe' then
  begin
    writeln('Error 3');
    halt(1);
  end;
end.

Link to SVN view of webtbs/tw2159.pp source.