test/FrontendAda/non_bitfield.ads

   1 -- RUN: %llvmgcc -c %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;