Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / pack23.adb
blobaa8099fd3cb69e2646479c14a218e9e12deda8cc
1 -- { dg-do compile }
2 -- { dg-options "-gnatws" }
4 with Pack23_Pkg;
6 function Pack23 return Integer is
8 type Arr is array (1 .. 32) of Boolean with Size => 32, Pack;
10 A : Arr;
12 begin
13 return Pack23_Pkg.Func (A (1));
14 end;