Browse Source

* fixed out-of-bounds int64 constant

git-svn-id: trunk@4490 -
Jonas Maebe 19 years ago
parent
commit
ba334905f0
1 changed files with 2 additions and 2 deletions
  1. 2 2
      tests/test/tprec3.pp

+ 2 - 2
tests/test/tprec3.pp

@@ -15,7 +15,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;
@@ -28,7 +28,7 @@ var
 begin
 begin
   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