* check that doubleaddr are refused in fpc mode

tests/tbf/tb0155.pp

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

tests/tbf/tb0155a.pp

@@ -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.

tests/tbf/tb0155b.pp

@@ -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.