2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / pack18.adb
blob857a6f9787e2e980109f8441e471b78bac491b5f
1 -- { dg-do run }
3 with Pack18_Pkg; use Pack18_Pkg;
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;