blob: ef829b63128f45fc9786147e18dc91f44298d4c9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 4669 }
{ Submitted by "C.Stolk" on 2006-01-07 }
{ e-mail: C.stolk@cos.rotterdam.nl }
program test;
const
nul1:array[boolean] of byte=(0,1);
var
b,j,h:byte;
begin
b:=0;
for j:=1 to 2 do
begin
h:=
nul1[(b=2) and (b=j)] or
nul1[(b=6)or(b=j)];
end;
end.
|
