Test suite results for test file webtbs/tw0852.pp

Test run data :

Test file "webtbs/tw0852.pp" information:

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

Detailed test run results:

Record count: 1

No log of 940507.

Source:

type
  TFloat80Array = array [0..1000000] of Extended;

procedure AddFloat80Proc(var Vector1; const Vector2; Count: Integer);
var
  I: Integer;
begin
  for I:=0 to Count - 1 do
    TFloat80Array(Vector1)[I]:=TFloat80Array(Vector1)[I] + TFloat80Array(Vector2)[I];
end;

begin
end.

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