Procházet zdrojové kódy

* adapt test to range check

git-svn-id: trunk@6536 -
pierre před 18 roky
rodič
revize
6030d53a23
1 změnil soubory, kde provedl 3 přidání a 0 odebrání
  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 }