Test suite results for test file tbs/tb0222.pp

Test run data :

Test file "tbs/tb0222.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ Old file: tbs0261.pp }
{ problems for assignment overloading                  OK 0.99.12a (PM) }

program bug0261;

{ test for operator overloading }
{ Copyright (c) 1999 Lourens Veen }
{ why doesn't this work? }
uses
  erroru,
  ub0222;


var a : mythingy;
    b : myotherthingy;
    c : mythirdthingy;
begin
  a.x:=55;
  a.y:=45;
  a.c:=7;
  b:=a;
  c:=a;
  if b.d<>c.e then
    begin
      Writeln('Error in assignment overloading');
      Halt(1);
    end;
  if b<>c then
    begin
      Writeln('Error in equal overloading');
      Halt(1);
    end;
  Writeln('Sizeof(mythirdthingy)=',sizeof(mythirdthingy));
  Writeln('Sizeof(mynewthingy)=',sizeof(mynewthingy));
end.

Link to SVN view of tbs/tb0222.pp source.