diff --git a/gcc/ada/libgnarl/s-taprop__solaris.adb b/gcc/ada/libgnarl/s-taprop__solaris.adb
index 6d05e8db00413c02a920f00f5885d350a205bc7b..c24925c93046a52f772c5e1132097e65e884d805 100644
--- a/gcc/ada/libgnarl/s-taprop__solaris.adb
+++ b/gcc/ada/libgnarl/s-taprop__solaris.adb
@@ -1968,7 +1968,7 @@ package body System.Task_Primitives.Operations is
       then
          declare
             CPU_Set : aliased psetid_t;
-            Result  : int;
+            Result  : Interfaces.C.int;
 
          begin
             Result := pset_create (CPU_Set'Access);