gcc/testsuite/gnat.dg/opt90e_pkg.ads

   1 package Opt90e_Pkg is
   2
   3   type Rec is record
   4     D : String (1 .. 12);
   5     A : Short_Short_Integer;
   6     B : Integer;
   7     C : Short_Integer;
   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 Opt90e_Pkg;