Browse Source

+ added

git-svn-id: trunk@928 -
Jonas Maebe 20 years ago
parent
commit
8be8b5a6e9
2 changed files with 13 additions and 0 deletions
  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.