+ added

git-svn-id: trunk@2609 -

.gitattributes

@@ -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

tests/webtbf/tw4809.pp

@@ -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.
+