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