Test suite results for test file webtbs/tw2892.pp

Test run data :

Test file "webtbs/tw2892.pp" information:

t_id 1231
t_adddate 2004/01/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940461.

Source:

{ Source provided for Free Pascal Bug Report 2892 }
{ Submitted by "Eric Grange" on  2004-01-12 }
{ e-mail: egrange@glscene.org }

{$mode delphi}

type
   TAffineVector = array [0..2] of Single;
   TVector = array [0..3] of Single;

function VectorMake(const v : TAffineVector; w : Single = 0) : TVector; overload;
begin
end;

function VectorMake(const x, y, z: Single; w : Single = 0) : TVector; overload;
begin
end;

var
   avec : TAffineVector;
   vec : TVector;
begin
   vec:=VectorMake(avec);
end.

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