* range check explicitly disabled

git-svn-id: trunk@6539 -

tests/webtbs/tw2037.pp

@@ -3,6 +3,8 @@
 { e-mail: [email protected] }
 program tw2037;
 
+{$R-}
+
 const
   FILE_FLAG_WRITE_THROUGH = -2147483648;
   FILE_ATTRIBUTE_NORMAL = 128;