mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 04:48:02 +02:00
36 lines
676 B
ObjectPascal
36 lines
676 B
ObjectPascal
{ 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.
|