Browse Source

* adapt test to range check

git-svn-id: trunk@6536 -
pierre 18 years ago
parent
commit
6030d53a23
1 changed files with 3 additions and 0 deletions
  1. 3 0
      tests/test/cg/tnot.pp

+ 3 - 0
tests/test/cg/tnot.pp

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