gcc/testsuite/gnat.dg/pack20.ads

   1 -- { dg-do compile }
   2
   3 with Pack20_Pkg; use Pack20_Pkg;
   4
   5 package Pack20 is
   6
   7    type Rec is record
   8       Simple_Type  : Integer;
   9       Fixed        : String_Ptr;
  10    end record;
  11    pragma Pack (Rec);
  12
  13    procedure Proc (A : Rec);
  14
  15 end Pack20;