*** empty log message ***

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: [email protected] }
@@ -9,4 +11,6 @@ var
   c : comp;
 begin
   c := -9223372036854775809;
+  if c<>-9223372036854775809 then
+    halt(1);
 end.