1-- { dg-do compile }
2-- { dg-options "-gnatws" }
3
4with Pack16_Pkg; use Pack16_Pkg;
5
6procedure Pack16 is
7
8   type Sample_Table_T is array (1 .. N) of Integer;
9
10   type Clock_T is record
11      N_Ticks  : Integer := 0;
12   end record;
13
14   type Sampling_Descriptor_T is record
15      Values : Sample_Table_T;
16      Valid  : Boolean;
17      Tstamp : Clock_T;
18   end record;
19
20   pragma Pack (Sampling_Descriptor_T);
21
22   Sampling_Data : Sampling_Descriptor_T;
23
24begin
25   null;
26end;
27