浏览代码

+ added test

git-svn-id: trunk@11061 -
Jonas Maebe 17 年之前
父节点
当前提交
e4124cd070
共有 2 个文件被更改,包括 18 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 17 0
      tests/webtbs/tw11349.pp

+ 1 - 0
.gitattributes

@@ -8281,6 +8281,7 @@ tests/webtbs/tw11309.pp svneol=native#text/plain
 tests/webtbs/tw11312.pp svneol=native#text/plain
 tests/webtbs/tw1132.pp svneol=native#text/plain
 tests/webtbs/tw1133.pp svneol=native#text/plain
+tests/webtbs/tw11349.pp svneol=native#text/plain
 tests/webtbs/tw1152.pp svneol=native#text/plain
 tests/webtbs/tw1157.pp svneol=native#text/plain
 tests/webtbs/tw1157b.pp svneol=native#text/plain

+ 17 - 0
tests/webtbs/tw11349.pp

@@ -0,0 +1,17 @@
+{ %norun }
+
+program bug11349;
+
+{$R+,Q+}
+
+const
+  WS_BORDER = DWORD($800000);
+
+var
+  Style: Cardinal;
+
+begin
+  Style := 0;
+  Style := Style and not WS_BORDER;
+end.
+