paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 02:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* adapt test to range check

Browse Source 
git-svn-id: trunk@6535 -
This commit is contained in:
pierre 2007-02-18 00:18:17 +00:00
parent c5f685e72e
commit d452839744
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/test/cg/tneg.pp
View File

@ -103,6 +103,9 @@ Begin
int64val := 1; int64val := 1;
int64val := - int64val; int64val := - int64val;
Write('Value should be -1...'); Write('Value should be -1...');
{ the following test give range check errors }
{$R-}
test(int64val and $FFFFFFFF, -1); test(int64val and $FFFFFFFF, -1);
{ CURRENT NODE : REGISTER } { CURRENT NODE : REGISTER }