浏览代码

* adapt test to range check

git-svn-id: trunk@6536 -
pierre 18 年之前
父节点
当前提交
6030d53a23
共有 1 个文件被更改,包括 3 次插入0 次删除
  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 }