Test suite results for test file webtbs/tw1573.pp

Test run data :

Test file "webtbs/tw1573.pp" information:

t_id 830
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %version=1.1 }

{$mode objfpc}

type
	TCheck=class(TObject);


var
	vlA : TCheck;
	vlB : TObject;

procedure aa(const ParXX :array of TObject);
begin
        // writeln(cardinal(ParXX[0]),' ', cardinal(ParXX[1]));
        if (ParXX[0]<>vlA) or (ParXX[1]<>vlB) then
          begin
             writeln('error');
             halt(1);
          end;
end;

begin
	vlB := TObject.Create;
	vlA := TCheck.Create;
	aa([vlA,vlB]);
end.

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