mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 10:38:16 +02:00
12 lines
217 B
ObjectPascal
12 lines
217 B
ObjectPascal
{ 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.
|