blob: 06434869f60770d8f7d7a4943dca32ee2298a139 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 4223 }
{ Submitted by "Phil Hess" on 2005-07-25 }
{ e-mail: pjhess@purdue.edu }
program TestSet;
{$Mode delphi}
{$R+}
var
AnInt : Integer;
begin
AnInt := -1;
if AnInt in [1,2,3] then
WriteLn('In set')
else
WriteLn('Not in set');
end.
|
