gcc/testsuite/gnat.dg/opt90b_pkg.ads

   1 package Opt90b_Pkg is
   2
   3   type Rec is record
   4     A : Short_Short_Integer;
   5     B : Integer;
   6     C : Short_Integer;
   7     D : String (1 .. 12);
   8   end record;
   9   pragma Pack (Rec);
  10   for Rec'Alignment use 1;
  11
  12   type Data is tagged record
  13     R : Rec;
  14   end record;
  15
  16 end Opt90b_Pkg;