Test suite results for test file tbs/tb0288.pp

Test run data :

Test file "tbs/tb0288.pp" information:

t_id 513
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 941033.

Source:

{ Old file: tbs0340.pp }
{  }

{$packenum 1}
type
  t = (a,b,c,d,e);

const arr:  array[0..4] of t = (a,b,c,d,e);

var
  x: byte;

begin
  x := 0;
  writeln(ord(arr[x]),' ',ord(arr[x+1]),' ',ord(arr[x+2]),' ',ord(arr[x+3]),' ',ord(arr[x+4]));
  for x:=0 to 4 do
   if ord(arr[x])<>x then
    begin
      writeln('error in {$packenum 1}');
      halt(1);
    end;
end.

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