gcc/testsuite/gnat.dg/limited2_pack_2.ads

package Limited2_Pack_2 is
   type C is (C1, C2, C3);

   procedure Create (P : in C);
end Limited2_Pack_2;