mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
21 lines
340 B
ObjectPascal
21 lines
340 B
ObjectPascal
program tpushpop1;
|
|
|
|
type
|
|
{$MinEnumSize 1}
|
|
TTest1 = (t1One, t1Two, t1Three);
|
|
{$push}
|
|
{$MinEnumSize 2}
|
|
TTest2 = (t2One, t2Two, t2Three);
|
|
{$pop}
|
|
TTest3 = (t3One, t3Two, t3Three);
|
|
|
|
begin
|
|
if SizeOf(TTest1) <> 1 then
|
|
Halt(1);
|
|
if SizeOf(TTest2) <> 2 then
|
|
Halt(2);
|
|
if SizeOf(TTest3) <> 1 then
|
|
Halt(3);
|
|
Writeln('ok');
|
|
end.
|