gcc/testsuite/gnat.dg/opt90a_pkg.ads

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