PR9214: Convert ConstantExpr::getIndices() to return an ArrayRef, plus
[oota-llvm.git] / test / FrontendAda / non_bitfield.ads
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;