Subversion Repositories openrisc_2011-10-31

-- { dg-do compile }

-- { dg-do compile }

-- { dg-options "-gnatws" }

-- { dg-options "-gnatws" }

--              (bits of "Header" unused)

--              (bits of "Header" unused)

procedure Nested_Agg_Bitfield_Constructor is

procedure Nested_Agg_Bitfield_Constructor is

    type Uint64 is mod 2 ** 64;

    type Uint64 is mod 2 ** 64;

    type Uint16 is mod 2 ** 16;

    type Uint16 is mod 2 ** 16;

    type Time_Stamp is record

    type Time_Stamp is record

       Sec  : Uint64;

       Sec  : Uint64;

       Year : Uint16;

       Year : Uint16;

    end record;

    end record;

    type Msg_Header is record

    type Msg_Header is record

       Stamp : Time_Stamp;

       Stamp : Time_Stamp;

    end record;

    end record;

    for Msg_Header use record

    for Msg_Header use record

       Stamp at 0 range 0 .. 64+16-1;

       Stamp at 0 range 0 .. 64+16-1;

    end record;

    end record;

    for Msg_Header'Size use 80;

    for Msg_Header'Size use 80;

    type Msg is record

    type Msg is record

       Header : Msg_Header;

       Header : Msg_Header;

    end record;

    end record;

    for Msg use record

    for Msg use record

       Header at 0 range 0 .. 191;

       Header at 0 range 0 .. 191;

    end record;

    end record;

    M : Msg := (Header => (Stamp => (2, 4)));

    M : Msg := (Header => (Stamp => (2, 4)));

begin

begin

   null;

   null;

end;

end;