t_id
455
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525290618 | 948161 | True | False | Successfully run |
Record count: 1
{ 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.