1-- { dg-do compile }
2
3with Pack20_Pkg; use Pack20_Pkg;
4
5package 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
15end Pack20;
16