Browse Source

* adapt test to range check

git-svn-id: trunk@6536 -
pierre 18 năm trước cách đây
mục cha
commit
6030d53a23
1 tập tin đã thay đổi với 3 bổ sung0 xóa
  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 }