1--  { dg-do compile }
2
3with text_io;
4with System;
5procedure addr3 is
6
7  Type T_SAME_TYPE is new System.Address;
8
9  Type T_OTHER_TYPE is new System.Address;
10
11  I : constant integer := 0;
12                                                                                  procedure dum ( i : INTEGER ) is
13  begin
14    text_io.put_line ("Integer op");
15    null;
16  end;
17
18  procedure dum ( i : system.ADDRESS ) is
19  begin
20    null;
21  end;
22
23  procedure dum ( i : T_SAME_TYPE ) is
24  begin
25    null;
26  end;
27
28  procedure dum ( i : T_OTHER_TYPE ) is
29  begin
30    null;
31  end;
32
33begin
34   dum( I );
35   dum( 1 );
36end;
37