mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:49:33 +02:00
17 lines
282 B
ObjectPascal
17 lines
282 B
ObjectPascal
{ Source provided for Free Pascal Bug Report 4624 }
|
|
{ Submitted by "benoit sanchez" on 2005-12-20 }
|
|
{ e-mail: sanchez@clipper.ens.fr }
|
|
type Number=record
|
|
value:boolean;
|
|
end;
|
|
|
|
operator div (a,b:number) c:number;
|
|
begin
|
|
c.value:=true;
|
|
end;
|
|
|
|
var a:number;
|
|
begin
|
|
a:=a div a;
|
|
end.
|