OSDN Git Service

* gnat.dg/bit_packed_array5.ads: Move dg directive to...
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / bit_packed_array5.ads
1 package Bit_Packed_Array5 is
2
3    type Bit_Array is array (Integer range <>) of Boolean;
4    pragma Pack (Bit_Array);
5
6    type Short_Bit_Array_Type is new Bit_Array (0 .. 15);
7    for Short_Bit_Array_Type'Size use 16;
8
9    type Word_Type is range 0 .. 65535;
10    for Word_Type'Size use 16;
11
12    function Inv (Word : Word_Type) return Word_Type;
13
14 end Bit_Packed_Array5;