discr16_pkg.ads « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/discr16_pkg.ads

blob: 985785f660d268b32f5b2295a8efe31863fb5bf2 (plain)

package Discr16_Pkg is

  type ET3a is (E1, E2, E3, E4, E5);
  for ET3a use (E1=> 32_001, E2=> 32_002, E3=> 32_003,
                E4=> 32_004, E5=> 32_005);

end;