1-- { dg-do compile } 2 3procedure Test_Unknown_Discrs is 4 5 package Display is 6 7 type Component_Id (<>) is limited private; 8 9 Deferred_Const : constant Component_Id; 10 11 private 12 13 type Component_Id is (Clock); 14 15 type Rec1 is record 16 C : Component_Id := Deferred_Const; 17 end record; 18 19 Priv_Cid_Object : Component_Id := Component_Id'First; 20 21 type Rec2 is record 22 C : Component_Id := Priv_Cid_Object; 23 end record; 24 25 Deferred_Const : constant Component_Id := Priv_Cid_Object; 26 27 end Display; 28 29begin 30 null; 31end Test_Unknown_Discrs; 32