1-- { dg-do compile } 2-- { dg-options "-O" } 3 4with Sizetype3_Pkg; use Sizetype3_Pkg; 5 6package body Sizetype3 is 7 8 procedure Handle_Enum_Values is 9 Values : constant List := F; 10 L : Values_Array_Access; 11 begin 12 L := new Values_Array (1 .. Values'Length); 13 end Handle_Enum_Values; 14 15 procedure Simplify_Type_Of is 16 begin 17 Handle_Enum_Values; 18 end Simplify_Type_Of; 19 20end Sizetype3; 21