1 -- Fichier INT32_IO.ADA 2 -- Package d'entrées-sorties pour les entiers de 32 bits et de 16 bits. 3 4 package Int32_Io is 5 type Int32 is range -2_147_483_648..2_147_483_647; 6 procedure Put(Item : in Int32; Width : in Natural := 0); 7 procedure Put(Item : in Integer; Width : in Natural := 0); 8 end Int32_Io