gcc/testsuite/gnat.dg/opt90d_pkg.ads

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