gcc-4.9/gcc/testsuite/gnat.dg/pack18.adb


1
2
3
4
5
6
7
8
9
10
11
12

-- { dg-do run }

with Pack18_Pkg; use Pack18_Pkg;

procedure Pack18 is
   use Pack18_Pkg.Attributes_Tables;
   Table : Instance;
begin
   Init (Table);
   Set_Last (Table, 1);
   Table.Table (Last (Table)).N := 0;
end;