diff --git a/tests/webtbs/tw32115.pp b/tests/webtbs/tw32115.pp
index 262a171161..2c2dd74a9f 100644
--- a/tests/webtbs/tw32115.pp
+++ b/tests/webtbs/tw32115.pp
@@ -1,7 +1,7 @@
 {$mode objfpc}
 program Project1;
 
-function CalcSmth(const AValue: Integer): Integer;
+function CalcSmth(const AValue: LongInt): Integer;
 begin
   case AValue of
     -9999999..-1000000: Result := 2;