paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

no message

Browse Source
This commit is contained in:
florian 2003-11-04 22:05:41 +00:00
parent c2a46f23de
commit 6fd22f9b20
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
tests/webtbs/tw2763.pp Normal file
View File

@ -0,0 +1,30 @@
{ %version=1.1 }
{ 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.