Test suite results for test file tbs/tb0394.pp

Test run data :

Test file "tbs/tb0394.pp" information:

t_id 611
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 940522.

Source:

{ %version=1.1 }

{$ifdef fpc}{$mode objfpc}{$endif}
{$apptype console}
var
  err : boolean;
procedure Demo(x:array of longint);
 var
  i:longint;
 begin
   if high(x)<>4 then
    err:=true
   else if x[4]<>14 then
    err:=true;
  for i:=low(x)to high(x)do
   writeln(i,' ',x[i]);
 end;
var
 y:array[10..40]of longint;
 i:longint;
begin
 for i:=10 to 40 do
  y[i]:=i;
 Demo(slice(y,5));
 if err then
  begin
    writeln('ERROR!');
    halt(1);
  end;
end.

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