paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 21:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test from Rika for merge request 566

Browse Source
This commit is contained in:
florian 2024-01-06 22:18:30 +01:00
parent 29f2f12496
commit 94a56ba3d5
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0708.pp Normal file
View File

@ -0,0 +1,12 @@
procedure FillSomeQWords;
var
q: array[0 .. 9] of uint64;
rep: int32;
begin
for rep := 1 to 128 * 1024 * 1024 do
FillQWord(q, length(q), 1234);
end;
begin
FillSomeQWords;
end.