2 -- { dg-options "-gnatws" }
6 procedure Make (C : out Local_T) is
7 Tmp : Local_T (Tag_One);
24 type Access_Iterator_T is access Iterator_T;
28 package body Iteration is
30 procedure Construct (Iterator : in out Access_Iterator_T;
31 Message : Message_T) is
33 Iterator.S := Message.S;