summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/array32.adb
blob: 1932e40194d6c65f9f356dd8d80f431e9211fdc4 (plain)
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;