fork download
  1. With Ada.Text_IO; Use Ada.Text_IO;
  2. With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
  3.  
  4. procedure Test is
  5. type I1 is new Integer;
  6. type I2 is new Integer;
  7. procedure Moo(N : I1) is
  8. begin
  9. null;
  10. end Moo;
  11. procedure Moo(N : I2) is
  12. begin
  13. null;
  14. end Moo;
  15. begin
  16. Moo(I1'(3));
  17. end Test;
Success #stdin #stdout 0s 17024KB
stdin
Standard input is empty
stdout
Standard output is empty