Test suite results for test file webtbs/tw2763.pp

Test run data :

Test file "webtbs/tw2763.pp" information:

t_id 1185
t_version 1.1
t_adddate 2003/11/05
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948270.

Source:

{ %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.

Link to SVN view of webtbs/tw2763.pp source.