gcc/testsuite/gnat.dg/pack18.adb

   1 -- { dg-do run }
   2
   3 with Pack18_Pkg; use Pack18_Pkg;
   4
   5 procedure Pack18 is
   6    use Pack18_Pkg.Attributes_Tables;
   7    Table : Instance;
   8 begin
   9    Init (Table);
  10    Set_Last (Table, 1);
  11    Table.Table (Last (Table)).N := 0;
  12 end;