CVS difference for ai05s/ai05-0062-1.txt

--- ai05s/ai05-0062-1.txt	2007/12/13 04:39:37	1.3
+++ ai05s/ai05-0062-1.txt	2008/05/10 05:14:33	1.4
@@ -1,4 +1,4 @@
-!standard 7.4(6/2)                                    07-11-29    AI05-0062-1/02
+!standard 7.4(6/2)                                    08-04-18    AI05-0062-1/03
 !standard 7.4(7.1/2)
 !class binding interpretation 07-08-21
 !status ARG Approved  8-0-1  06-11-10
@@ -28,7 +28,11 @@
 
 private
 
-   Cnst_Priv_22 : constant not null Acc_to_Priv;  -- OK
+   type Priv_Comp is ...
+   Priv_Obj : aliased Priv_Comp;
+
+   Cnst_Priv_22 : constant not null Acc_to_Priv
+                                := Priv_Obj'Access;  -- OK?
 
 end B740002;