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