diff --git a/components/codetools/tests/fpctests/tchlp6.pp b/components/codetools/tests/fpctests/tchlp6.pp
index 47a988220f..5ed942f276 100644
--- a/components/codetools/tests/fpctests/tchlp6.pp
+++ b/components/codetools/tests/fpctests/tchlp6.pp
@@ -26,7 +26,7 @@ var
   res: Integer;
 begin
   t := TTest.Create;
-  res{guesstype:integer} := t[3];
+  res{guesstype:longint} := t[3];
   Writeln('value: ', res);
   if res <> 3 then
     Halt(1);
diff --git a/components/codetools/tests/fpctests/tchlp7.pp b/components/codetools/tests/fpctests/tchlp7.pp
index 6ac0b9b686..32d20cab0d 100644
--- a/components/codetools/tests/fpctests/tchlp7.pp
+++ b/components/codetools/tests/fpctests/tchlp7.pp
@@ -34,7 +34,7 @@ var
   res: Integer;
 begin
   t := TTest.Create;
-  res{guesstype:integer} := t[3];
+  res{guesstype:longint} := t[3];
   Writeln('value: ', res);
   if res <> 3 then
     Halt(1);