--
-- Version: @(#)derived.ada 1.2  Date: 7/2/84
--
-- Author:  Bryce Bardin
--          Ada Projects Section
--          Software Engineering Division
--          Ground Systems Group
--          Hughes Aircraft Company
--          Fullerton, CA
--
-- This program tests the inter-conversion of derived types with
-- different representations.  An approriate message is output to
-- indicate "pass" or "fail".
--
--
-- Define the original types:
with Text_Io;
use Text_Io;
package Originals is

    type Bit is range 0 .. 1;

    type Bit_String is array (Positive range <>) of Bit;

    subtype Word is Bit_String (1 .. 16);

    type Byte is range 0 .. 255;

    type Block is
        record
            First : Byte;
            Second : Word;
            Third : Byte;
        end record;

    package Byte_Io is new Integer_Io (Byte);
    use Byte_Io;

    procedure Put (B : Block);

end Originals;