2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>

[official-gcc.git] / gcc / testsuite / gnat.dg / specs / pack2.ads

-- { dg-do compile }

package Pack2 is 
   type Rec is record
       Ptr: access Character;
       Int :Integer;
   end record;
   type Table is array (1..2) of rec;
   pragma Pack (Table);
end Pack2;