gcc/testsuite/gnat.dg/limited2.adb

--  { dg-do compile }

with Limited2_Pack_2;

procedure Limited2 is
begin
   Limited2_Pack_2.Create (P => Limited2_Pack_2.C1);
end Limited2;