mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 19:49:31 +02:00
31 lines
454 B
ObjectPascal
31 lines
454 B
ObjectPascal
{$mode objfpc}
|
|
{ Source provided for Free Pascal Bug Report 2763 }
|
|
{ Submitted by "Michael Van Canneyt" on 2003-11-04 }
|
|
{ e-mail: Michael.VanCanneyt@wisa.be }
|
|
program testv2;
|
|
|
|
uses Variants;
|
|
|
|
Type
|
|
TMyEnum = (One,Two,Three);
|
|
|
|
Var
|
|
V : Variant;
|
|
E : TMyEnum;
|
|
|
|
begin
|
|
E:=Two;
|
|
V:=E;
|
|
if v>1 then
|
|
begin
|
|
writeln('error 1');
|
|
halt(1);
|
|
end;
|
|
E:=V;
|
|
if ord(e)<>1 then
|
|
begin
|
|
writeln('error 2');
|
|
halt(1);
|
|
end;
|
|
end.
|