Merge -r 127928:132243 from trunk
[official-gcc.git] / gcc / testsuite / gnat.dg / specs / static_initializer.ads
blob8755c30d17be0367f12850c681ea51c03c521fcb
1 -- { dg-do compile }
3 package static_initializer is
5 type Vector is array (1 .. 3) of Float;
6 type Arr is array (Integer range 1 .. 3) of Vector;
8 Pos : constant Arr := ((0.0, 1.0, 2.0),
9 (0.5, 1.5, 2.5),
10 (1.0, 2.0, 4.0));
12 end;
14 -- { dg-final { scan-assembler-not "elabs" } }