Fix broken MinGW build of gcc.c
[official-gcc.git] / gcc / testsuite / gnat.dg / debug12.ads
blobdbc5896cc7327987b4420543c47cacdc1f842cbc
1 package Debug12 is
2 type Bit_Array is array (Positive range <>) of Boolean
3 with Pack;
4 A : Bit_Array := (1 .. 10 => False);
5 A2 : Boolean renames A (2);
7 function Get_A2 return Boolean;
8 end Debug12;