gcc/testsuite/gnat.dg/opt9.adb

   1 -- { dg-do compile }
   2 -- { dg-options "-gnatws -O" }
   3
   4 with Opt9_Pkg; use Opt9_Pkg;
   5
   6 procedure Opt9 is
   7
   8    type Array_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 Rec is record
  15       Values : Array_T;
  16       Valid  : Boolean;
  17       Tstamp : Clock_T;
  18    end record;
  19
  20    pragma Pack (Rec);
  21
  22    Data : Rec;
  23
  24 begin
  25    null;
  26 end;