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

* made code able to run

Browse Source
This commit is contained in:
pierre 1999-01-15 17:47:49 +00:00
parent 039edd5b4c
commit 50182fcd57
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tbs0032.pp
View File

@ -1,6 +1,12 @@
var var
p : procedure(w : word); p : procedure(w : word);
procedure pp(w :word);
begin
Writeln(w);
end;
begin begin
p:=@pp;
p(1234); p(1234);
end. end.