Subversion Repositories openrisc

-- { dg-do compile }

-- { dg-options "-O" }

with Sizetype3_Pkg; use Sizetype3_Pkg;

package body Sizetype3 is

   procedure Handle_Enum_Values is

      Values : constant List := F;

      L : Values_Array_Access;

   begin

      L := new Values_Array (1 .. Values'Length);

   end Handle_Enum_Values;

   procedure Simplify_Type_Of is

   begin

      Handle_Enum_Values;

   end Simplify_Type_Of;

end Sizetype3;