paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add test for enumerating a set without ranges

Browse Source 
git-svn-id: trunk@36105 -
This commit is contained in:
svenbarth 2017-05-04 22:00:29 +00:00
parent c349151504
commit 52ddce608f
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12439,6 +12439,7 @@ tests/test/tforin24.pp svneol=native#text/pascal
tests/test/tforin25.pp svneol=native#text/pascal tests/test/tforin25.pp svneol=native#text/pascal
tests/test/tforin26.pp svneol=native#text/pascal tests/test/tforin26.pp svneol=native#text/pascal
tests/test/tforin27.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/tforin3.pp svneol=native#text/pascal
tests/test/tforin4.pp svneol=native#text/pascal tests/test/tforin4.pp svneol=native#text/pascal
tests/test/tforin5.pp svneol=native#text/pascal tests/test/tforin5.pp svneol=native#text/pascal

10
tests/test/tforin28.pp Normal file
View File

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