1-- { dg-do compile } 2 3package body Array32 is 4 5 procedure Init (A : out Arr) is 6 begin 7 A := ((I => 1), (I => 2)); 8 end; 9 10end Array32; 11