blob: 0d0a8df501b199ca532aa104686abdcaa0b4eb45 [file] [log] [blame]
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;