CVS difference for ai12s/ai12-0034-1.txt

Differences between 1.2 and version 1.3
Log of other versions for file ai12s/ai12-0034-1.txt

--- ai12s/ai12-0034-1.txt	2012/06/29 01:25:02	1.2
+++ ai12s/ai12-0034-1.txt	2012/07/19 02:42:10	1.3
@@ -44,7 +44,7 @@
     end Pack2;
 
     with Pack1, Pack2, Ada.Streams;
-    procedure Test1 (A : Pack2.Root_Acc) is
+    procedure Test1 (The_Obj : Pack2.Root_Acc) is
     begin
         Pack1.Root'Class'Write (Stream, The_Obj.all);  -- Legal? ([1] is illegal.)
         Pack1.Inner.Do_Write (Stream, The_Obj.all); -- Illegal.

Questions? Ask the ACAA Technical Agent