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