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

* 12345678901234567890>high(int64), therefore int64var=12345678901234567890 always

Browse Source 
evaluates to false. Remove 1 digit to get the value below high(int64).

git-svn-id: trunk@7636 -
This commit is contained in:
daniel 2007-06-12 22:20:24 +00:00
parent 54fc70395e
commit a0d601cfe7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tprec8.pp
View File

@ -19,7 +19,7 @@ var
r: tr; r: tr;
begin begin
r.a := 2; r.a := 2;
r.i := 12345678901234567890; r.i := 1234567890123456789;
r.c := true; r.c := true;
r.d := 5; r.d := 5;
r.e := ed; r.e := ed;
@ -33,7 +33,7 @@ begin
b := 0; b := 0;
t(r); t(r);
if (r.a <> 2) or if (r.a <> 2) or
(r.i <> 12345678901234567890) or (r.i <> 1234567890123456789) or
(not r.c) or (not r.c) or
(r.d <> 5) or (r.d <> 5) or
(r.e <> ed) then (r.e <> ed) then