1 2 3 4 5 6 7 8
-- { dg-do compile } with Limited2_Pack_2; procedure Limited2 is begin Limited2_Pack_2.Create (P => Limited2_Pack_2.C1); end Limited2;