gcc/testsuite/gnat.dg/aggr12.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package Aggr12 is

  type Hair_Color_Type is (Black, Brown, Blonde, Grey, White, Red);

  type Rec is record
    I1, I2 : Hair_Color_Type;
  end record;

  A : constant Rec := (Black, Blonde);

  procedure Print (Data : String);

  procedure Test;

end Aggr12;