paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source 
git-svn-id: trunk@2609 -
This commit is contained in:
Jonas Maebe 2006-02-16 16:03:33 +00:00
parent 33e6604b91
commit a977fc06cc
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6002,6 +6002,7 @@ tests/webtbf/tw4777.pp svneol=native#text/plain
tests/webtbf/tw4778a.pp svneol=native#text/plain
tests/webtbf/tw4781a.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/uw0840a.pp svneol=native#text/plain
tests/webtbf/uw0840b.pp svneol=native#text/plain

17
tests/webtbf/tw4809.pp Normal file
View 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.