2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / specs / access2.ads
blobff0046f8ceff7c73d148ab56526dc381b173e7ef
1 -- { dg-do compile }
3 package Access2 is
5 type Priv;
6 type Inc is access Priv;
7 type Priv is access Inc;
8 C : constant Priv := new Inc;
10 end Access2;