Subversion Repositories openrisc_2011-10-31

-- { dg-do run }

-- { dg-do run }

-- { dg-options "-O" }

-- { dg-options "-O" }

procedure Array5 is

procedure Array5 is

    type myint is range 0 .. 100_000;

    type myint is range 0 .. 100_000;

    Bla : constant myint := 359;

    Bla : constant myint := 359;

    type my_array is array (1 .. 2) of myint;

    type my_array is array (1 .. 2) of myint;

    type item is record

    type item is record

       Length  : Integer;

       Length  : Integer;

       Content : my_array;

       Content : my_array;

    end record;

    end record;

    procedure create_item (M : out item) is

    procedure create_item (M : out item) is

    begin

    begin

      M.Length := 1;

      M.Length := 1;

      M.Content := (others => Bla);

      M.Content := (others => Bla);

    end;

    end;

    Var : item;

    Var : item;

begin

begin

    create_item (Var);

    create_item (Var);

    if Var.Length = 1

    if Var.Length = 1

     and then Var.Content (1) = Bla

     and then Var.Content (1) = Bla

    then

    then

      null;

      null;

    else

    else

      raise Program_Error;

      raise Program_Error;

    end if;

    end if;

end;

end;