Test suite results for test file webtbs/tw1223.pp

Test run data :

Test file "webtbs/tw1223.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Source provided for Free Pascal Bug Report 1223 }
{ Submitted by "Denis Yarkovoy" on  2000-11-03 }
{ e-mail: gunky9@geocities.com }
 Type
      TPoint = record
       X, Y : integer;
      end;

 operator + (const p1, p2:TPoint) p : TPoint;
 begin
  p.X:=p1.X+p2.X;
  p.Y:=p1.Y+p2.Y;
 end;

 var d,d1:TPoint;

begin
  d.x:=5;d.y:=34;
  d1.x:=6;d1.y:=-50;
  d:=d+d1;
  if (d.x<>11) or (d.y<>-16) then
    begin
      Writeln('Error is operator overloading');
      Halt(1);
    end
  else
    Writeln('Operator overloading works correctly');
end.

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