* procvar and absolute probs

  * procvar and addr() probs

tests/tbs/tb0433.pp

@@ -0,0 +1,24 @@
+{$ifdef FPC}
+{$mode Delphi}
+{$endif}
+{$APPTYPE CONSOLE}
+var
+ x:function(x:longint):longint;
+ y:pointer absolute x;
+ z,w,v:pointer;
+begin
+ z:=@@x;
+ w:=addr(@x);
+ v:=@(addr(x));
+ writeln(longint(y),' ',longint(z),' ',longint(w),' ',longint(v));
+ if (z<>w) or (z<>v) then
+  begin
+    writeln('Addr Error');
+    halt(1);
+  end;
+ if (y<>nil) then
+  begin
+    writeln('Absolute Error');
+    halt(1);
+  end;
+end.

tests/tbs/tb0434.pp

@@ -0,0 +1,7 @@
+var
+ x:function:longint;
+ y:pointer absolute x;
+begin
+  if y<>nil then
+   halt(1);
+end.

tests/tbs/tb0435.pp

@@ -0,0 +1,10 @@
+
+{$ifdef fpc}{$mode Delphi}{$endif}
+
+var
+ x:function(x:longint):longint;
+ y:pointer absolute x;
+begin
+  if y<>nil then
+   halt(1);
+end.