mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 02:28:14 +02:00
+ added
git-svn-id: trunk@928 -
This commit is contained in:
parent
63a7fabebc
commit
8be8b5a6e9
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -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
tests/webtbf/tw4244.pp
Normal file
12
tests/webtbf/tw4244.pp
Normal file
@ -0,0 +1,12 @@
|
||||
{ %fail }
|
||||
|
||||
function f: pointer;
|
||||
begin
|
||||
f := pointer(1);
|
||||
end;
|
||||
|
||||
var
|
||||
p : pointer;
|
||||
begin
|
||||
p := @longint(f);
|
||||
end.
|
Loading…
Reference in New Issue
Block a user