blob: 998fb92059b914e917faa8b89112e454ad1d55b1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ Source provided for Free Pascal Bug Report 4705 }
{ Submitted by "Phil H." on 2006-01-17 }
{ e-mail: pjhess@purdue.edu }
program TestVarCase;
uses
SysUtils,
Variants;
var
AVar : Variant;
e : (e1,e2);
begin
AVar := 1;
case AVar of
1 : halt(0);
end;
halt(1);
end.
|
