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

* on 64 bit CPUs val works with 64 bit

Browse Source
This commit is contained in:
florian 2005-02-05 18:56:45 +00:00
parent 6abb733b75
commit 5f8c31df7c
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/tbs/tb0336.pp
View File

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