fpcsrc/tests/webtbs/tw2267.pp


1
2
3
4
5
6
7
8
9
10
11

{ Source provided for Free Pascal Bug Report 2267 }
{ Submitted by "Marco" on  2002-12-19 }
{ e-mail: marco@freepascal.org }
type theenum=(aa,bb,cc);

var i,j : integer;
    k  :theenum;

begin
 k:=theenum(i<j);
end.