gcc/testsuite/gnat.dg/pack16.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws" }
   3
   4 with Pack16_Pkg; use Pack16_Pkg;
   5
   6 procedure 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
  24 begin
  25    null;
  26 end;