* fixed runtime

git-svn-id: trunk@1490 -

tests/tbs/tb0486.pp

@@ -1,16 +1,22 @@
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 type
   tprocedure = procedure;
   pprocedure = ^tprocedure;
 
 var
   l : longint;
+  l2 : tprocedure;
 
 function _f1 : plongint;
   begin
     result:=@l;
   end;
 
+function _f2 : pprocedure;
+  begin
+    result:=@@l2;
+  end;
+
 var
   f1 : function : plongint;
   f2 : function : pprocedure;
@@ -21,6 +27,8 @@ procedure p;
   end;
 
 begin
+  f1:=_f1;
+  f2:=_f2;
   f1^:=1;
   if l<>1 then
     halt(1);