tests/webtbf/tw3275.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{ %fail }

{ Source provided for Free Pascal Bug Report 3275 }
{ Submitted by "Vincent Snijders" on  2004-08-27 }
{ e-mail: vslist@zonnet.nl }
program bug3275;

var
  b: boolean;
  i: integer;
  j: integer;

begin
  b := false;
  i := 4;
  j := 5;
  b := b or i <> j;
end.