gcc/testsuite/gnat.dg/addr3.adb

   1 --  { dg-do compile }
   2
   3 with text_io;
   4 with System;
   5 procedure 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
  33 begin
  34    dum( I );
  35    dum( 1 );
  36 end;