+ add test for enumerating a set without ranges

git-svn-id: trunk@36105 -

.gitattributes

@@ -12439,6 +12439,7 @@ tests/test/tforin24.pp svneol=native#text/pascal
 tests/test/tforin25.pp svneol=native#text/pascal
 tests/test/tforin26.pp svneol=native#text/pascal
 tests/test/tforin27.pp svneol=native#text/pascal
+tests/test/tforin28.pp svneol=native#text/pascal
 tests/test/tforin3.pp svneol=native#text/pascal
 tests/test/tforin4.pp svneol=native#text/pascal
 tests/test/tforin5.pp svneol=native#text/pascal

tests/test/tforin28.pp

@@ -0,0 +1,10 @@
+program tforin28;
+
+type
+  TEnum = (One, Two, Three);
+
+var
+  e: TEnum;
+begin
+  for e in [One, Three] do Writeln(e);
+end.