* fixed out-of-bounds int64 constant

git-svn-id: trunk@4490 -

tests/test/tprec3.pp

@@ -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