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

* fix compilation of tests on 32-bit systems (doesn't (shouldn't?) change their behavior)

Browse Source 
git-svn-id: trunk@42520 -
This commit is contained in:
svenbarth 2019-07-28 19:26:51 +00:00
parent f72342ed0e
commit 8fc5c9edb2
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw35878.pp
View File

@ -4,8 +4,8 @@ program random_test;
const
l: UInt64 = 6148914691236517205;
var
s,n: UInt64;
i,j: UInt64;
s,n: UInt32;
i,j: UInt32;
begin
WriteLn('Experiment:', LineEnding);
WriteLn(' Draw a natural number r from the intervall [0,l-1] and');
@ -18,7 +18,7 @@ begin
l := 6148914691236517205;
for j := 4 to 18 do
begin
n := (Int64(1) shl j);
n := (Int32(1) shl j);
s := 0;
for i := 0 to n-1 do
if Random(Int64(l)) < l div 2 then

3
tests/webtbs/tw35878a.pp
View File

@ -1,5 +1,6 @@
var
i, rand, val: int64;
rand, val: int64;
i: int32;
begin
rand:=-5;
for i:=1 to 10000 do