blob: f53d5fb03208387d5e46239cdec329d43e2a34cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ 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.
|
