summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/array13.ads
blob: 0d0a8df501b199ca532aa104686abdcaa0b4eb45 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
package Array13 is

   Max : Natural := 1;

   type Arr is array (Natural range 0..Max) of Natural;

   type T is record
      A : Arr := (others => 0);
   end record;

   procedure Foo;

end Array13;