From dde4ec96c2862f4380ba8baa88c627cbea76c1d1 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 8 Dec 2013 09:05:34 +0000
Subject: [PATCH] * avoid range check error during compilation due to constant
 propagation

git-svn-id: trunk@26196 -
---
 tests/webtbs/tw16770.pp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/webtbs/tw16770.pp b/tests/webtbs/tw16770.pp
index 12209c67ec..5d52e10003 100644
--- a/tests/webtbs/tw16770.pp
+++ b/tests/webtbs/tw16770.pp
@@ -2,14 +2,14 @@
 
 {$mode delphi}
 {$r+}
-procedure Test;
 var
   Count: Word;
+
+procedure Test;
+var
   I: Integer;
 
 begin
-  Count := 0;
-
   for I := 0 to Pred(Count) do
     begin
       WriteLn(I);
@@ -18,6 +18,8 @@ begin
 end;
 
 begin
+  Count := 0;
+
   test;
 end.