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