ambiguous expression (cannot resolve "Put")

[cryintothebluesky@gmail.com]

Hi, could anyone suggest how to print 'Size attribute for various integers? There seems to be an issue with overloaded Put() function. Not sure why only 'Size attribute causes this issue, other attributes like 'First and 'Last seem OK. I suppose I could do something like Ada.Integer_Text_IO.Put() and Ada.Short_Integer_Text_IO.Put() but this doesn't look very nice. 


with Ada.Text_IO;               use Ada.Text_IO;
with Ada.Integer_Text_IO;       use Ada.Integer_Text_IO;
with Ada.Short_Integer_Text_IO; use Ada.Short_Integer_Text_IO;

procedure Integer_Types is
begin
	Put("Integer'Size        "); Put(Integer'Size); New_Line;
	Put("Integer'First       "); Put(Integer'First); New_Line;
	Put("Integer'Last        "); Put(Integer'Last); New_Line;

	Put("Short_Integer'Size  "); Put(Short_Integer'Size); New_Line;
	Put("Short_Integer'First "); Put(Short_Integer'First); New_Line;
	Put("Short_Integer'Last  "); Put(Short_Integer'Last); New_Line;
end Integer_Types;


Compile
   [Ada]          integer_types.adb
integer_types.adb:13:38: ambiguous expression (cannot resolve "Put")
integer_types.adb:13:38: possible interpretation at a-tiinio.ads:66, instance at a-siteio.ads:18
integer_types.adb:13:38: possible interpretation at a-tiinio.ads:66, instance at a-inteio.ads:18
integer_types.adb:17:38: ambiguous expression (cannot resolve "Put")
integer_types.adb:17:38: possible interpretation at a-tiinio.ads:66, instance at a-siteio.ads:18
integer_types.adb:17:38: possible interpretation at a-tiinio.ads:66, instance at a-inteio.ads:18
gprbuild: *** compilation phase failed