From 02b2929c94931fbb1ddaead421f912b769408f58 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 3 Dec 2002 22:24:13 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbs/tw2128.pp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/webtbs/tw2128.pp b/tests/webtbs/tw2128.pp
index 4b240d4abe..8cba171582 100644
--- a/tests/webtbs/tw2128.pp
+++ b/tests/webtbs/tw2128.pp
@@ -1,3 +1,5 @@
+{ %version=1.1}
+
 { Source provided for Free Pascal Bug Report 2128 }
 { Submitted by "Bill Rayer" on  2002-09-18 }
 { e-mail: lingolanguage@hotmail.com }
@@ -9,4 +11,6 @@ var
   c : comp;
 begin
   c := -9223372036854775809;
+  if c<>-9223372036854775809 then
+    halt(1);
 end.