From 6030d53a237d1b310bd2010d2a3cf6fa2c785f7b Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 18 Feb 2007 00:20:18 +0000
Subject: [PATCH]  * adapt test to range check

git-svn-id: trunk@6536 -
---
 tests/test/cg/tnot.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/tests/test/cg/tnot.pp b/tests/test/cg/tnot.pp
index 057414ba60..4e51577be0 100644
--- a/tests/test/cg/tnot.pp
+++ b/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 }