gcc/testsuite/gnat.dg/enum_rep2.adb

   1 --  { dg-do compile }
   2
   3 with Ada.Integer_Text_IO;
   4 with Ada.Text_IO;
   5
   6 procedure Enum_Rep2 is
   7
   8    type T is
   9      (E80, E81, E82, E83, E84, E85, E86, E87, E88, E89, E8A, E8B, E8C, E8D, E8E, E8F,
  10       E90, E91, E92, E93, E94, E95, E96, E97, E98, E99, E9A, E9B, E9C, E9D, E9E, E9F,
  11       EA0, EA1, EA2, EA3, EA4, EA5, EA6, EA7, EA8, EA9, EAA, EAB, EAC, EAD, EAE, EAF,
  12       EB0, EB1, EB2, EB3, EB4, EB5, EB6, EB7, EB8, EB9, EBA, EBB, EBC, EBD, EBE, EBF,
  13       EC0, EC1, EC2, EC3, EC4, EC5, EC6, EC7, EC8, EC9, ECA, ECB, ECC, ECD, ECE, ECF,
  14       ED0, ED1, ED2, ED3, ED4, ED5, ED6, ED7, ED8, ED9, EDA, EDB, EDC, EDD, EDE, EDF,
  15       EE0, EE1, EE2, EE3, EE4, EE5, EE6, EE7, EE8, EE9, EEA, EEB, EEC, EED, EEE, EEF,
  16       EF0, EF1, EF2, EF3, EF4, EF5, EF6, EF7, EF8, EF9, EFA, EFB, EFC, EFD, EFE, EFF,
  17       E00, E01, E02, E03, E04, E05, E06, E07, E08, E09, E0A, E0B, E0C, E0D, E0E, E0F,
  18       E10, E11, E12, E13, E14, E15, E16, E17, E18, E19, E1A, E1B, E1C, E1D, E1E, E1F,
  19       E20, E21, E22, E23, E24, E25, E26, E27, E28, E29, E2A, E2B, E2C, E2D, E2E, E2F,
  20       E30, E31, E32, E33, E34, E35, E36, E37, E38, E39, E3A, E3B, E3C, E3D, E3E, E3F,
  21       E40, E41, E42, E43, E44, E45, E46, E47, E48, E49, E4A, E4B, E4C, E4D, E4E, E4F,
  22       E50, E51, E52, E53, E54, E55, E56, E57, E58, E59, E5A, E5B, E5C, E5D, E5E, E5F,
  23       E60, E61, E62, E63, E64, E65, E66, E67, E68, E69, E6A, E6B, E6C, E6D, E6E, E6F,
  24       E70, E71, E72, E73, E74, E75, E76, E77, E78, E79, E7A, E7B, E7C, E7D, E7E, E7F);
  25    for T use
  26      (E80 => -16#80#, E81 => -16#7F#, E82 => -16#7E#, E83 => -16#7D#,
  27       E84 => -16#7C#, E85 => -16#7B#, E86 => -16#7A#, E87 => -16#79#,
  28       E88 => -16#78#, E89 => -16#77#, E8A => -16#76#, E8B => -16#75#,
  29       E8C => -16#74#, E8D => -16#73#, E8E => -16#72#, E8F => -16#71#,
  30
  31       E90 => -16#70#, E91 => -16#6F#, E92 => -16#6E#, E93 => -16#6D#,
  32       E94 => -16#6C#, E95 => -16#6B#, E96 => -16#6A#, E97 => -16#69#,
  33       E98 => -16#68#, E99 => -16#67#, E9A => -16#66#, E9B => -16#65#,
  34       E9C => -16#64#, E9D => -16#63#, E9E => -16#62#, E9F => -16#61#,
  35
  36       EA0 => -16#60#, EA1 => -16#5F#, EA2 => -16#5E#, EA3 => -16#5D#,
  37       EA4 => -16#5C#, EA5 => -16#5B#, EA6 => -16#5A#, EA7 => -16#59#,
  38       EA8 => -16#58#, EA9 => -16#57#, EAA => -16#56#, EAB => -16#55#,
  39       EAC => -16#54#, EAD => -16#53#, EAE => -16#52#, EAF => -16#51#,
  40
  41       EB0 => -16#50#, EB1 => -16#4F#, EB2 => -16#4E#, EB3 => -16#4D#,
  42       EB4 => -16#4C#, EB5 => -16#4B#, EB6 => -16#4A#, EB7 => -16#49#,
  43       EB8 => -16#48#, EB9 => -16#47#, EBA => -16#46#, EBB => -16#45#,
  44       EBC => -16#44#, EBD => -16#43#, EBE => -16#42#, EBF => -16#41#,
  45
  46       EC0 => -16#40#, EC1 => -16#3F#, EC2 => -16#3E#, EC3 => -16#3D#,
  47       EC4 => -16#3C#, EC5 => -16#3B#, EC6 => -16#3A#, EC7 => -16#39#,
  48       EC8 => -16#38#, EC9 => -16#37#, ECA => -16#36#, ECB => -16#35#,
  49       ECC => -16#34#, ECD => -16#33#, ECE => -16#32#, ECF => -16#31#,
  50
  51       ED0 => -16#30#, ED1 => -16#2F#, ED2 => -16#2E#, ED3 => -16#2D#,
  52       ED4 => -16#2C#, ED5 => -16#2B#, ED6 => -16#2A#, ED7 => -16#29#,
  53       ED8 => -16#28#, ED9 => -16#27#, EDA => -16#26#, EDB => -16#25#,
  54       EDC => -16#24#, EDD => -16#23#, EDE => -16#22#, EDF => -16#21#,
  55
  56       EE0 => -16#20#, EE1 => -16#1F#, EE2 => -16#1E#, EE3 => -16#1D#,
  57       EE4 => -16#1C#, EE5 => -16#1B#, EE6 => -16#1A#, EE7 => -16#19#,
  58       EE8 => -16#18#, EE9 => -16#17#, EEA => -16#16#, EEB => -16#15#,
  59       EEC => -16#14#, EED => -16#13#, EEE => -16#12#, EEF => -16#11#,
  60
  61       EF0 => -16#10#, EF1 => -16#0F#, EF2 => -16#0E#, EF3 => -16#0D#,
  62       EF4 => -16#0C#, EF5 => -16#0B#, EF6 => -16#0A#, EF7 => -16#09#,
  63       EF8 => -16#08#, EF9 => -16#07#, EFA => -16#06#, EFB => -16#05#,
  64       EFC => -16#04#, EFD => -16#03#, EFE => -16#02#, EFF => -16#01#,
  65
  66       E00 => 16#00#, E01 => 16#01#, E02 => 16#02#, E03 => 16#03#,
  67       E04 => 16#04#, E05 => 16#05#, E06 => 16#06#, E07 => 16#07#,
  68       E08 => 16#08#, E09 => 16#09#, E0A => 16#0A#, E0B => 16#0B#,
  69       E0C => 16#0C#, E0D => 16#0D#, E0E => 16#0E#, E0F => 16#0F#,
  70
  71       E10 => 16#10#, E11 => 16#11#, E12 => 16#12#, E13 => 16#13#,
  72       E14 => 16#14#, E15 => 16#15#, E16 => 16#16#, E17 => 16#17#,
  73       E18 => 16#18#, E19 => 16#19#, E1A => 16#1A#, E1B => 16#1B#,
  74       E1C => 16#1C#, E1D => 16#1D#, E1E => 16#1E#, E1F => 16#1F#,
  75
  76       E20 => 16#20#, E21 => 16#21#, E22 => 16#22#, E23 => 16#23#,
  77       E24 => 16#24#, E25 => 16#25#, E26 => 16#26#, E27 => 16#27#,
  78       E28 => 16#28#, E29 => 16#29#, E2A => 16#2A#, E2B => 16#2B#,
  79       E2C => 16#2C#, E2D => 16#2D#, E2E => 16#2E#, E2F => 16#2F#,
  80
  81       E30 => 16#30#, E31 => 16#31#, E32 => 16#32#, E33 => 16#33#,
  82       E34 => 16#34#, E35 => 16#35#, E36 => 16#36#, E37 => 16#37#,
  83       E38 => 16#38#, E39 => 16#39#, E3A => 16#3A#, E3B => 16#3B#,
  84       E3C => 16#3C#, E3D => 16#3D#, E3E => 16#3E#, E3F => 16#3F#,
  85
  86       E40 => 16#40#, E41 => 16#41#, E42 => 16#42#, E43 => 16#43#,
  87       E44 => 16#44#, E45 => 16#45#, E46 => 16#46#, E47 => 16#47#,
  88       E48 => 16#48#, E49 => 16#49#, E4A => 16#4A#, E4B => 16#4B#,
  89       E4C => 16#4C#, E4D => 16#4D#, E4E => 16#4E#, E4F => 16#4F#,
  90
  91       E50 => 16#50#, E51 => 16#51#, E52 => 16#52#, E53 => 16#53#,
  92       E54 => 16#54#, E55 => 16#55#, E56 => 16#56#, E57 => 16#57#,
  93       E58 => 16#58#, E59 => 16#59#, E5A => 16#5A#, E5B => 16#5B#,
  94       E5C => 16#5C#, E5D => 16#5D#, E5E => 16#5E#, E5F => 16#5F#,
  95
  96       E60 => 16#60#, E61 => 16#61#, E62 => 16#62#, E63 => 16#63#,
  97       E64 => 16#64#, E65 => 16#65#, E66 => 16#66#, E67 => 16#67#,
  98       E68 => 16#68#, E69 => 16#69#, E6A => 16#6A#, E6B => 16#6B#,
  99       E6C => 16#6C#, E6D => 16#6D#, E6E => 16#6E#, E6F => 16#6F#,
 100
 101       E70 => 16#70#, E71 => 16#71#, E72 => 16#72#, E73 => 16#73#,
 102       E74 => 16#74#, E75 => 16#75#, E76 => 16#76#, E77 => 16#77#,
 103       E78 => 16#78#, E79 => 16#79#, E7A => 16#7A#, E7B => 16#7B#,
 104       E7C => 16#7C#, E7D => 16#7D#, E7E => 16#7E#, E7F => 16#7F#);
 105    for T'Size use 8;
 106
 107    procedure Print (X : T) is
 108    begin
 109       Ada.Integer_Text_IO.Put (T'Pos (X));
 110       Ada.Integer_Text_IO.Put (T'Enum_Rep (X));
 111       Ada.Text_IO.New_Line;
 112    end;
 113
 114 begin
 115    Print (T'First);
 116    Print (T'Last);
 117 end;