3 procedure Test_Unknown_Discrs is
7 type Component_Id (<>) is limited private;
9 Deferred_Const : constant Component_Id;
13 type Component_Id is (Clock);
16 C : Component_Id := Deferred_Const;
19 Priv_Cid_Object : Component_Id := Component_Id'First;
22 C : Component_Id := Priv_Cid_Object;
25 Deferred_Const : constant Component_Id := Priv_Cid_Object;
31 end Test_Unknown_Discrs;