gcc/testsuite/gnat.dg/opt11.ads

   1 package Opt11 is
   2
   3    type String_Ptr is access constant String;
   4
   5    type Form_Type is (Qualified, Unqualified);
   6
   7    type Rec is record
   8       N1, N2, N3 : Natural;
   9       Fixed : String_Ptr;
  10       Form : Form_Type;
  11       Is_Local : Boolean := True;
  12    end record;
  13    pragma Pack (Rec);
  14
  15    procedure Proc;
  16
  17 end Opt11;