7 Type T_SAME_TYPE is new System.Address;
9 Type T_OTHER_TYPE is new System.Address;
11 I : constant integer := 0;
12 procedure dum ( i : INTEGER ) is
14 text_io.put_line ("Integer op");
18 procedure dum ( i : system.ADDRESS ) is
23 procedure dum ( i : T_SAME_TYPE ) is
28 procedure dum ( i : T_OTHER_TYPE ) is