mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 15:49:04 +02:00
19 lines
313 B
ObjectPascal
19 lines
313 B
ObjectPascal
{ %result=201 }
|
|
|
|
{$r+}
|
|
{$packenum 1}
|
|
Type
|
|
MySet = (msOne,msTwo,msThree,msFour,msFive);
|
|
|
|
Var
|
|
aVar1: array[msOne..msFive] of LongInt = (1,2,3,4,5);
|
|
aVar2: array[msTwo..msFive] of LongInt = (2,3,4,5);
|
|
mVar: MySet;
|
|
v1,v2: LongInt;
|
|
|
|
begin
|
|
byte(mVar) := 100;
|
|
v1 := aVar1[mVar];
|
|
end.
|
|
|