3 package body Class_Wide2
is
5 procedure Initialize
is
6 Var_Acc
: Class_Acc
:= new Grand_Child
;
7 Var
: Grand_Child
'Class := Grand_Child
'Class (Var_Acc
.all); -- { dg-bogus "already constrained" "" { xfail *-*-* } }
10 Var
:= Grand_Child
'Class (Var_Acc
.all);