1 -- RUN: %llvmgcc -S %s 2 package 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; 12 end; 13
