paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 14:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for one of the oldest open bugs, fixed by rev. 8515

Browse Source 
git-svn-id: trunk@8517 -
This commit is contained in:
florian 2007-09-16 20:37:54 +00:00
parent f0959c1b1d
commit 1b7bd208a1
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8190,6 +8190,7 @@ tests/webtbs/tw4557.pp svneol=native#text/plain
tests/webtbs/tw4566.pp svneol=native#text/plain tests/webtbs/tw4566.pp svneol=native#text/plain
tests/webtbs/tw4574.pp svneol=native#text/plain tests/webtbs/tw4574.pp svneol=native#text/plain
tests/webtbs/tw4599.pp svneol=native#text/plain tests/webtbs/tw4599.pp svneol=native#text/plain
tests/webtbs/tw4606.pp svneol=native#text/plain
tests/webtbs/tw4613.pp svneol=native#text/plain tests/webtbs/tw4613.pp svneol=native#text/plain
tests/webtbs/tw4616.pp svneol=native#text/plain tests/webtbs/tw4616.pp svneol=native#text/plain
tests/webtbs/tw4624.pp svneol=native#text/plain tests/webtbs/tw4624.pp svneol=native#text/plain

11
tests/webtbs/tw4606.pp Normal file
View File

@ -0,0 +1,11 @@
{$packset 1}
type
tlettersset=set of 'a'..'z';
begin
if sizeof(tlettersset)<>4 then
begin
writeln(sizeof(tlettersset));
halt(1);
end;
end.