mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 17:08:11 +02:00
11 lines
150 B
ObjectPascal
11 lines
150 B
ObjectPascal
{ %opt=-MDelphi }
|
|
program SetTest;
|
|
{$mode objfpc}
|
|
type
|
|
TEnum = (one, two);
|
|
TSet = set of TEnum;
|
|
begin
|
|
if SizeOf(TSet)<>4 then
|
|
halt(1);
|
|
end.
|