Subversion Repositories openrisc

-- { dg-excess-errors "no code generated" }
 
package Elab2_Pkg is
 
   function Get_Value (S : String) return Integer;
 
   Max_Limit : constant array(1..2) of Integer :=
     (1 => Get_Value ("One"), 2 => Get_Value ("Two"));
 
   type Index_Type is new Natural range 0 .. Max_Limit(1);
 
   type Array_Type is array (Index_Type range <>) of Natural;
 
   type Rec1(D : Index_Type) is record
      A : Array_Type(1 .. D);
   end record;
 
end Elab2_Pkg;