1package body Freezing1_Pack is 2 function Create_Collection 3 (Factory : in T_Factory) return I_Interface_Collection'Class 4 is 5 begin 6 return Implem'(null record); 7 end Create_Collection; 8end Freezing1_Pack; 9
1package body Freezing1_Pack is 2 function Create_Collection 3 (Factory : in T_Factory) return I_Interface_Collection'Class 4 is 5 begin 6 return Implem'(null record); 7 end Create_Collection; 8end Freezing1_Pack; 9