mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-25 11:49:14 +02:00
Merged revisions 928 via svnmerge from
/trunk git-svn-id: branches/fixes_2_0@929 -
This commit is contained in:
parent
787cc54469
commit
f9886bad92
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -5335,6 +5335,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