gcc/testsuite/gnat.dg/aggr12.ads

   1 package Aggr12 is
   2
   3   type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red);
   4
   5   type Rec is record
   6     I1, I2 : Hair_Color_Type;
   7   end record;
   8
   9   A : constant Rec := (Black, Blonde);
  10
  11   procedure Print (Data : String);
  12
  13   procedure Test;
  14
  15 end Aggr12;