瀏覽代碼

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

git-svn-id: trunk@8517 -
florian 18 年之前
父節點
當前提交
1b7bd208a1
共有 2 個文件被更改,包括 12 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 11 0
      tests/webtbs/tw4606.pp

+ 1 - 0
.gitattributes

@@ -8190,6 +8190,7 @@ tests/webtbs/tw4557.pp svneol=native#text/plain
 tests/webtbs/tw4566.pp svneol=native#text/plain
 tests/webtbs/tw4574.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/tw4616.pp svneol=native#text/plain
 tests/webtbs/tw4624.pp svneol=native#text/plain

+ 11 - 0
tests/webtbs/tw4606.pp

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