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