瀏覽代碼

+ added

git-svn-id: trunk@928 -
Jonas Maebe 20 年之前
父節點
當前提交
8be8b5a6e9
共有 2 個文件被更改,包括 13 次插入0 次删除
  1. 1 0
      .gitattributes
  2. 12 0
      tests/webtbf/tw4244.pp

+ 1 - 0
.gitattributes

@@ -5505,6 +5505,7 @@ tests/webtbf/tw4139.pp svneol=native#text/plain
 tests/webtbf/tw4144.pp svneol=native#text/plain
 tests/webtbf/tw4153.pp svneol=native#text/plain
 tests/webtbf/tw4227.pp svneol=native#text/plain
+tests/webtbf/tw4244.pp svneol=native#text/plain
 tests/webtbf/tw4256.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain

+ 12 - 0
tests/webtbf/tw4244.pp

@@ -0,0 +1,12 @@
+{ %fail }
+
+function f: pointer;
+begin
+  f := pointer(1);
+end;
+
+var
+  p : pointer;
+begin
+  p := @longint(f);
+end.