gcc/testsuite/gnat.dg/pack13_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

generic

  Size : Positive;

package Pack13_Pkg is

  type Object is private;

private

  type Bit is range 0 .. 1;
  for Bit'size use 1;

  type Object is array (1 .. Size) of Bit;
  pragma Pack (Object);

end Pack13_Pkg;