1-- RUN: %llvmgcc -S %s
2package Non_Bitfield is
3 type SP is access String;
4 type E is (A, B, C);
5 type T (D : E) is record
6 case D is
7 when A => X : Boolean;
8 when B => Y : SP;
9 when C => Z : String (1 .. 2);
10 end case;
11 end record;
12end;
13