mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 06:08:22 +02:00
12 lines
196 B
ObjectPascal
12 lines
196 B
ObjectPascal
{$minenumsize 1}
|
|
type
|
|
MyEnum = (a, b, c);
|
|
var
|
|
e: MyEnum;
|
|
begin
|
|
e := MyEnum(random(0) = 0);
|
|
if ord(e)<>1 then
|
|
halt(1);
|
|
writeln('sizeof(e) = ', sizeof(e), ', ord(e) = ', ord(e));
|
|
end.
|