gcc/testsuite/gnat.dg/pack20.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

-- { dg-do compile }

with Pack20_Pkg; use Pack20_Pkg;

package Pack20 is

   type Rec is record
      Simple_Type  : Integer;
      Fixed        : String_Ptr;
   end record;
   pragma Pack (Rec);

   procedure Proc (A : Rec);

end Pack20;