Test suite results for test file webtbs/tw3113.pp

Test run data :

Test file "webtbs/tw3113.pp" information:

t_id 1298
t_adddate 2004/05/24
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 937271.

Source:

{ Source provided for Free Pascal Bug Report 3113 }
{ Submitted by "Michalis Kamburelis" on  2004-05-23 }
{ e-mail: michalis@camelot.homedns.org }
type
  TVector3 = array[0..2]of Integer;

procedure P(const A:array of TVector3);
var i:Integer;
begin
 Writeln(High(A));

 if High(A)<>1 then
   begin
     writeln('Error!');
     halt(1);
   end;

 for i:=0 to High(A) do
  Writeln('  ', A[i][0], ' ', A[i][1], ' ', A[i][2]);
end;

const A1:TVector3 = (1, 2, 3);
begin
 P(A1);
 { When changed to P([A1]), works OK. }
end.

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