gcc/testsuite/gnat.dg/import2.adb

   1 --  { dg-do run }
   2
   3 procedure Import2 is
   4    type Index_Typ is mod 2**64;
   5    type Mod_Array is array (Index_Typ) of Integer;
   6
   7    Obj : Mod_Array;
   8    pragma Import (Ada, Obj);
   9 begin
  10    null;
  11 end Import2;