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

no message

Browse Source
This commit is contained in:
florian 2000-12-03 22:25:32 +00:00
parent b9a0b3108a
commit bab94870da
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/webtbs/tw1275.pp Normal file
View File

@ -0,0 +1,19 @@
var
sizes:array [1..3] of int64;
i:integer;
function Count:int64;
var
c:int64;
begin
c:=1;
writeln(c);
Count:=c;
end;
begin
i:=1;
sizes[i]:=Count();
writeln(sizes[i]);
end.