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

* exit(procvar) in tp mode

Browse Source
This commit is contained in:
peter 2002-12-22 14:33:02 +00:00
parent b9a1c74a71
commit 0be4fe2a2b
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/webtbs/tw2277.pp Normal file
View File

@ -0,0 +1,14 @@
{$mode tp}
type
tproc=procedure;
var
p : tproc;
function f:tproc;
begin
exit(p);
end;
begin
end.