package TEST_TYPES is
  type MVL7 is ('U', 'L', 'H', 'X', 'Z', '0', '1');
  type COLORS_OF_THE_RAINBOW is (RED, ORANGE, YELLOW,
                       GREEN, BLUE, INDIGO, VIOLET);
  subtype REGISTER_NUMBER is integer range 0 to 31;
  subtype TAX is real range 0.0 to 9999.99;
  subtype ASC_32 is integer range 0 to 31;
  type REG_32_ASCENDING is array (ASC_32) of MVL7;
  type TABLE_3D is array (ASC_32, ASC_32, BOOLEAN)
                   of COLORS_OF_THE_RAINBOW;
end TEST_TYPES;