소스 검색

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