-------------------------------------------------------------------
-- added to make below compile
-------------------------------------------------------------------
entity a is
end a;
-------------------------------------------------------------------

ARCHITECTURE b OF a IS
  TYPE color IS (blue, cyan, green, yellow, red, magenta);
  SUBTYPE reverse_color IS color RANGE red DOWNTO green;
  SIGNAL color1, color2, color3,
         color4, color5, color6,
         color7, color8 : color;
BEGIN

  color1 <= color'LEFT;   -- returns blue
  color2 <= color'RIGHT;  -- returns magenta

  color3 <= color'HIGH;   -- returns magenta
  color4 <= color'LOW;    -- returns blue

  color5 <= reverse_color'LEFT;
  -- returns red

  color6 <= reverse_color'RIGHT;
  -- returns green

  color7 <= reverse_color'HIGH;
  -- returns red

  color8 <= reverse_color'LOW;
  -- returns green
END b;

