With Ada.Text_IO; Use Ada.Text_IO;
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
procedure Test is
type I1 is new Integer;
type I2 is new Integer;
procedure Moo(N : I1) is
begin
null;
end Moo;
procedure Moo(N : I2) is
begin
null;
end Moo;
begin
Moo(I1'(3));
end Test;
V2l0aCBBZGEuVGV4dF9JTzsgVXNlIEFkYS5UZXh0X0lPOyAgCldpdGggQWRhLkludGVnZXJfVGV4dF9JTzsgVXNlIEFkYS5JbnRlZ2VyX1RleHRfSU87Cgpwcm9jZWR1cmUgVGVzdCBpcwogIHR5cGUgSTEgaXMgbmV3IEludGVnZXI7CiAgdHlwZSBJMiBpcyBuZXcgSW50ZWdlcjsKICBwcm9jZWR1cmUgTW9vKE4gOiBJMSkgaXMKICBiZWdpbgogICAgbnVsbDsKICBlbmQgTW9vOwogIHByb2NlZHVyZSBNb28oTiA6IEkyKSBpcwogIGJlZ2luCiAgICBudWxsOwogIGVuZCBNb287CmJlZ2luCiAgTW9vKEkxJygzKSk7CmVuZCBUZXN0Ow==