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

* fixed out-of-bounds int64 constant

Browse Source 
git-svn-id: trunk@4490 -
This commit is contained in:
Jonas Maebe 2006-08-23 17:55:41 +00:00
parent 1f42ee201b
commit ba334905f0
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/tprec3.pp
View File

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