test/FrontendAda/non_bitfield.ads


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

-- RUN: %llvmgcc -c %s
package Non_Bitfield is
   type SP is access String;
   type E is (A, B, C);
   type T (D : E) is record
      case D is
         when A => X : Boolean;
         when B => Y : SP;
         when C => Z : String (1 .. 2);
      end case;
   end record;
end;