Test suite results for test file webtbs/tw2525.pp

Test run data :

Test file "webtbs/tw2525.pp" information:

t_id 1180
t_adddate 2003/11/02
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{ Source provided for Free Pascal Bug Report 2525 }
{ Submitted by "Pavel V. Ozerski" on  2003-06-05 }
{ e-mail: ozerski@list.ru }
procedure MyProc(x:array of longint);
 begin
   writeln(high(x));
   if high(x)<>2 then
     halt(1);
 end;
type
 tMyEnum=(My1,My2,My3);
var
 ar:array[tMyEnum]of longint;
begin
 MyProc(ar);
end.

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