summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/pack13_pkg.ads
blob: afe8bec8f793499f6d205c259ea7521352f22d99 (plain)
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;