mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 19:09:27 +02:00
+ added
git-svn-id: trunk@2609 -
This commit is contained in:
parent
33e6604b91
commit
a977fc06cc
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6002,6 +6002,7 @@ tests/webtbf/tw4777.pp svneol=native#text/plain
|
|||||||
tests/webtbf/tw4778a.pp svneol=native#text/plain
|
tests/webtbf/tw4778a.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw4781a.pp svneol=native#text/plain
|
tests/webtbf/tw4781a.pp svneol=native#text/plain
|
||||||
tests/webtbf/tw4781b.pp svneol=native#text/plain
|
tests/webtbf/tw4781b.pp svneol=native#text/plain
|
||||||
|
tests/webtbf/tw4809.pp svneol=native#text/plain
|
||||||
tests/webtbf/uw0744.pp svneol=native#text/plain
|
tests/webtbf/uw0744.pp svneol=native#text/plain
|
||||||
tests/webtbf/uw0840a.pp svneol=native#text/plain
|
tests/webtbf/uw0840a.pp svneol=native#text/plain
|
||||||
tests/webtbf/uw0840b.pp svneol=native#text/plain
|
tests/webtbf/uw0840b.pp svneol=native#text/plain
|
||||||
|
17
tests/webtbf/tw4809.pp
Normal file
17
tests/webtbf/tw4809.pp
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
{ %fail }
|
||||||
|
|
||||||
|
{$r+}
|
||||||
|
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
|
||||||
|
longint(mVar) := 100;
|
||||||
|
v1 := aVar1[mVar];
|
||||||
|
end.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user