* enhance check

tests/tbs/tb0434.pp

@@ -1,7 +1,19 @@
+
+function dummy : longint;
+begin
+  dummy:=1;
+end;
+
 var
  x:function:longint;
+ x2:function:longint;
  y:pointer absolute x;
+ y2:pointer absolute x2; 
 begin
-  if y<>nil then
-   halt(1);
+  x2:=@dummy;
+  if (y<>nil) or (y2<>pointer(@dummy)) then
+   begin
+     Writeln('Wrong code generated for absolute to procvarsmy');
+     halt(1);
+   end;
 end.