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

* pass a randseed which is known to be problematic

Browse Source
This commit is contained in:
florian 2021-10-20 20:02:45 +02:00
parent 4c544d7858
commit 3eefff75df
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw14315.pp
View File

@ -33,7 +33,7 @@ var
a : array of byte;
u1, u2: ptruint;
begin
randomize();
randseed:=1634752820;
writeln('randseed: ',randseed);
GetStats(u1);
for i := 0 to 50 do begin