diff --git a/compiler/ncon.pas b/compiler/ncon.pas
index 66e4980a8d..e68bce1cf8 100644
--- a/compiler/ncon.pas
+++ b/compiler/ncon.pas
@@ -1149,7 +1149,7 @@ implementation
 
     function tsetconstnode.elements : AInt;
       var
-        i : AInt;
+        i : longint;
       begin
         result:=0;
         if not(assigned(value_set)) then