Test suite results for test file webtbs/tw1223.pp

Test run data :

Run ID:
Operating system: linux
Processor: powerpc
Version: 3.3.1
Fails/OK/Total: 42/9191/9233
Version: 3.3.1
Full version: 3.3.1-15668-ge657d6a07d
Comment: -Xd -Fl/usr/lib32 -Fd -Fl/usr/lib/gcc/powerpc64-linux-gnu/13/32 -Fd
Machine: gcc203
Category: 1
SVN revisions: e60a7d01a4:41ae52dde1:e657d6a07d:6a109634b0
Submitter: pierre
Date: 2024/05/06 06:14:00 <> 2024/05/05
Previous run: 945469
Next run: 947595

Hide skipped tests

Hide successful tests

Test file "webtbs/tw1223.pp" information:

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

Detailed test run results:

tr_idruntr_oktr_skiptr_result
515551994946580TrueFalseSuccessfully run

Record count: 1

No log of 946580.

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.