paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 17:57:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed runtime

Browse Source 
git-svn-id: trunk@1490 -
This commit is contained in:
peter 2005-10-19 06:35:17 +00:00
parent 252d90b691
commit fb6d17fb21
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/tbs/tb0486.pp
View File

@ -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);