1--  { dg-do compile }
2
3package Access2 is
4
5    type Priv;
6    type Inc is access Priv;
7    type Priv is access Inc;
8    C : constant Priv := new Inc;
9
10end Access2;
11