From 97446556ff0c46668a47c2be69cdf401de62d17c Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Sun, 18 Feb 2007 00:42:53 +0000
Subject: [PATCH]  * range check explicitly disabled

git-svn-id: trunk@6539 -
---
 tests/webtbs/tw2037.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tests/webtbs/tw2037.pp b/tests/webtbs/tw2037.pp
index ca7378dccb..a9eb65d160 100644
--- a/tests/webtbs/tw2037.pp
+++ b/tests/webtbs/tw2037.pp
@@ -3,6 +3,8 @@
 { e-mail: david@avimark.net }
 program tw2037;
 
+{$R-}
+
 const
   FILE_FLAG_WRITE_THROUGH = -2147483648;
   FILE_ATTRIBUTE_NORMAL = 128;