* on 64 bit CPUs val works with 64 bit

tests/tbs/tb0336.pp

@@ -18,7 +18,11 @@ begin
      do_error(1);
    s:='4294967296';
    val(s,d,code);
+{$ifdef CPU64}
+   if code<>0 then
+{$else CPU64}
    if code=0 then
+{$endif CPU64}
      do_error(1);
 
    s:='2147483647';
@@ -27,7 +31,11 @@ begin
      do_error(3);
    s:='2147483648';
    val(s,l,code);
+{$ifdef CPU64}
+   if code<>0 then
+{$else CPU64}
    if code=0 then
+{$endif CPU64}
      do_error(4);
    s:='-2147483648';
    val(s,l,code);
@@ -35,6 +43,10 @@ begin
      do_error(5);
    s:='-2147483649';
    val(s,l,code);
+{$ifdef CPU64}
+   if code<>0 then
+{$else CPU64}
    if code=0 then
+{$endif CPU64}
      do_error(6);
 end.