paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* check that doubleaddr are refused in fpc mode

Browse Source
This commit is contained in:
pierre 2003-02-17 16:00:17 +00:00
parent 856d87c173
commit 291f66991e
3 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbf/tb0155.pp Normal file
View File

@ -0,0 +1,10 @@
{ %FAIL }
{ @@(x) should be refused in normal mode }
var
x:function(x:longint):longint;
z:pointer;
begin
z:=@@x;
end.

10
tests/tbf/tb0155a.pp Normal file
View File

@ -0,0 +1,10 @@
{ %FAIL }
{ addr(@(x)) should be refused in normal mode }
var
x:function(x:longint):longint;
w:pointer;
begin
w:=addr(@x);
end.

10
tests/tbf/tb0155b.pp Normal file
View File

@ -0,0 +1,10 @@
{ %FAIL }
{ @(addr(x)) should be refused in normal mode }
var
x:function(x:longint):longint;
v:pointer;
begin
v:=@(addr(x));
end.