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

* adapt test to range check

Browse Source 
git-svn-id: trunk@6536 -
This commit is contained in:
pierre 2007-02-18 00:20:18 +00:00
parent d452839744
commit 6030d53a23
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/tnot.pp
View File

@ -79,6 +79,9 @@ Begin
longres := $7F7F7F7F;
longres := not longres;
Write('Value should be $80808080...');
{ the following test give range check errors }
{$R-}
test(longres,$80808080);
{ CURRENT NODE : REGISTER }